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