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