use re 'debug'; $_ = q{ }; print 'does it match ', int m{\<\/div\>\n\<\/body\>};