Help for this page
#! perl use strict; ... my $s = '"perl"monks'; $s =~ m{ " (\w{4}) " }x; print $1, "\n" if $1;
23:31 >perl 475_SoPW.pl perl 23:31 >