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

or

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