perl -wle '$a = "7__hello"; print "yes" if $a == 7;'
Argument "7__hallo" isn't numeric in numeric eq (==) at -e line 1.
yes