Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $string (qw(ab1b2b3b4d  ab5b6b7d  ab8b9d abxd ad)) {
...
'ab8b9d' -> all:(a b9 d) -> 2:()
'abxd' -> all:(a bx d) -> 2:()
'ad' -> all:() -> 2:()