In numeric context, perl accepts numbers in a variable until it runs out of them:

$ perl -e' $_ = "123abc"; print 0+$_, $/'
123
$
[download]