$ perl -le'use warnings "FATAL"=>"numeric"; print "infantile paralysis" + 0'