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