$ perl -le 'print int("32hike")'
32