Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $string (qw(
...
'50.10-d557_8' -> '8'
'50.10-d557_20' -> '20'
'50.10-d557_123' -> '123'

c:\@Work\Perl\monks>perl -wMstrict -e
"use Data::Dump qw(dd);
...

("_", undef, 0)
'_' parse failed