b@d #! perl; print 'ignore b@d'; die;