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";
}
##</code><code>##

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<=
##</code><code>##

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

my $line = "Name: Some Soldier, Rank:  Leftenant, Serial: 426879824, Boots:  black";

##</code><code>##

$line =~ /^\w*: \w*\s*\w*, \w*: \w*, \w+: (\d)*, \w*: \w*$/;

##</code><code>##

$line =~ /[Ss]erial: (\d{9})/;

##</code><code>##

$line =~ /<title>(.*?)</title>/;

##</code><code>##

$line =~ m!<title>(.*?)</title>!;

##</code><code>##

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

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

$intput =~ s/([A-Za-z]+)/uc($1)/ge;