> perl -e 'print 1+"buss";'
1