This will do the trick

if($string=~ m/<\/section>/)
{
    print "Here :: $& \n";
}
else
{
    print "regex failed";
}
[download]