#!/usr/bin/perl
use strict;

my $steppingfile = shift @ARGV;

open (F,"<$steppingfile") or die "CANNOT OPEN FILE $steppingfile\n";
my $s = join '', <F>;
close F;

$s =~ s/^step\s+\#\d+[\n\r\f]\d+\s+in\s+\.\.\/(.*?)[\n\r\f]//gmsx;
$s =~ s/^step\s+\#\d+[\n\r\f]\d+\s+in\s+([A-Za-z0-9\-_]+)\.(c|cpp)[\n\r\f]//gmsx;
print $s;

