print <<"BLAH";
This is the start of it... 
@{[ evaluated_code($blah) ]}
This is the end of it.
BLAH

sub evaluated_code {
   if ($blah == $blah) { return $blah }
}