$ perl -e 'print "123Ovid" + 4'
    127