print qq{Matched: "$&"\n};       # print match
    print qq~Before match: "$`"\n~; # print data before match
    print qq|After match: "$'"\n|;      # print data after match

##</code><code>##

    print <<STUFF;
Matched: "$&"
Before match: "$`"
After match: "$'"
STUFF