#!/usr/bin/env perl
use warnings;
use strict;
die "Usage: $0 INFILE OUTFILE\n"
	unless @ARGV==2;
my ($infile,$outfile) = @ARGV;
open my $ifh, '<', $infile or die $!;
open my $ofh, '>', $outfile or die $!;
while (my $line=<$ifh>) {
	$line=~s/^(?:L\d+|DETAIL|SPACE|SUMMARY),//;
	print $ofh $line;
}
close $ofh;
close $ifh;