FG42/conf/emacs.d/snippets/text-mode/perl-mode/while

#name : while (...) { ... }
# --
while ($1) {
    $0
}