perl -E '$string = "5abc"; $x = 0 + $string; print "$x\n"'