Select Code to Download

my $re = qr/(${ \$obj->gimme_sweet_love })/;
for my $match ( qw(yes yeah ja jup ok) ) {
...
    print "HURAY (m)"  if  $match =~ m/$re/;
    print "count = ".$obj->cnt;
}

$match value:yes
count = 1
...
count = 1
$match value:ok
count = 1