Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @strings = qw(vw vwx vwxz vwxzp vwxzpd vwxzpdq);
...
'vwxzpdq'
{4,} matched; captured 'vwxzpdq'
{4,}? matched; captured 'vwxz'