my $regex = qr{
        (?<foo> fo+ )
    }msx;
"barfooobar" =~ $regex;
print "<",$+{foo},">\n";     # prints "<fooo>"