path: root/.emacs.d/mysnippets/text-mode/perl-mode/while

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