Select Code to Download

package MyClass;
my $cnt;
...
print "\$match value:", $match;
print "HURAY (m)"  if  $match =~ m/$re/;
print "count = ".$obj->cnt;

$match value:hell yeah
HURAY (m)
count = 1
$match value:hell no
count = 9