http://www.perlmonks.org?node_id=963011


in reply to Help for regex

You can do something like this to avoid getting too escape happy.

if ( $string =~ m#<ID>(.*)</ID># ) { ... }