perfect!
the following code now works as i wanted it to.. thanks a lot!

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;
}
[download]

this gives:

$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
[download]