Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15';
...
"
'1 2 3 4 5 6 7 8 9 10 11 12 13 14 15'
'1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx_weight = qr{ (?<!          \d)    \d+       (?!          \d) }
+xms;
...
metric: 42
for debug: got '7' 'lb'
English: 7