sub fixup { my $t = $@; conv_chars(\$t); # subroutine that operates on a string return($t); }