$input = '<foo>bar<foo>oops</foo></foo>';
    print $input =~ m{<foo>(.*?)</foo>}, "\n";

    __OUTPUT__
    bar<foo>oops