#! /usr/bin/perl -i -n
next if $_ eq "BREAKSTUB\n";
print "BREAKSTUB\n" if /^BREAK/;
s/^(Breakpoint )(?:\d+ )?(?:at 0x[0-9a-f]+ )?/$1/;
print;