emacs/snippets/perl-mode/xwhile

# -*- mode: snippet -*-
# name: ... while ...
# key: xwhile
# --
${1:expression} while ${2:condition};