$ perl -MO=Deparse -pe 's/^(?:L\d+|DETAIL|SPACE|SUMMARY),//'
LINE: while (defined($_ = <ARGV>)) {
    s/^(?:L\d+|DETAIL|SPACE|SUMMARY),//;
}
continue {
    die "-p destination: $!\n" unless print $_;
}

##</code><code>##

while (<>) {
    s/^(?:L\d+|DETAIL|SPACE|SUMMARY),//;
    print;
}

##</code><code>##

#!/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;