#!/usr/bin/perl
use strict;

# strip0x vecmul128d_xphi_Gg.MIC-ASM > vecmul128d_xphi_Gg.MIC-ASM~stripped
my $steppingfile = shift @ARGV;

my $s = "";
open (F,"<$steppingfile") or die "CANNOT OPEN FILE $steppingfile\n";
while (<F>) {
	s/^\s\s\s0x[0-9a-zA-Z]+\s\<\+[0-9]+\>\://gmsx;
	$s .= $_;
}
close F;
print $s;

