sub die_clean
{
    my $input = shift;
    my ($msg, $line) = $input =~ m{(.+?)( at /\S+ line \d+\.$};
}