$ perl -e 'print 0+"12afsd4583";print $/' 12