use strict;

sub test_reg1
{
    return "fudge";
}

sub test_reg2
{
    print "'",$_,(/&test_reg1/i ? "' matches '" : "' does not match '"),&test_reg1,"'\n";
}

$_ = "fudge";
&test_reg2("fudge");