$ perl -E 'say "test" + 0'
0
$ perl -E 'say "123test" + 0'
123
$ perl -E 'say "123test567" + 0'
123