Select Code to Download

my $data = "<tag>this is a line of code</tag>
<explanation>this is where I wax poetic about my code</explanation>
<tag>this is another example of code</tag>";
if ($data =~ /<tag>(.*)<\/tag>/s) {
    print "I found =>$1<=\n";
}

I found =>this is a line of code</tag>
<explanation>this is where I wax poetic about my code</explanation>
<tag>this is another example of code<=

 if ($data =~ /<tag>(.*?)<\/tag>/s) {
    print "I found =>$1<=\n";
}

my $line = "a.b.cd*f.";
$line =~ /([^.*]{2})/;

my $input = "foo bar baz";
$input =~ s/(\w+)/uc($1)/ge;