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

##</code><code>##

$match value:yes
count = 1
$match value:yeah
HURAY (m)
count = 1
$match value:ja
count = 1
$match value:jup
count = 1
$match value:ok
count = 1