my $x= f();
$x= g($x);

##</code><code>##

sub mk_qr ($)
{
eval "qr/$_[0]/";
}