$test = 'the quick brown fox'; 
$_ = 8; 
if ( $test =~ m/^.*(??{print "$_\n"})/ ) { 
    print "**$_**\n"; 
}