($err = $@) =~ s/ at $f line \d+\.\n//;

##</code><code>##

    ($err = $@) =~ s/ at \Q$f\E line \d+\.\n//;