in reply to Strip non-numeric

try ... 
$scalar = "a1b2";
$scalar =~ s/\D//g;
print "$scalar\n";

[download]

In Section Seekers of Perl Wisdom