my $string = '
'; if($string=~ m/
]+>/) { print "Here :: $& \n"; } else { print "regex failed"; }