c:\@Work\Perl\monks>perl -le
"use warnings;
 ;;
 while (! $xyzzy || $xyzzy < 5) { ++$xyzzy; }
 print $xyzzy;
 ;;
 print for grep m{ xyzzy \z }xms, keys %main::;
"
5
xyzzy