#!/usr/bin/perl -w

use strict;

{
    while(<DATA>) {

      #  Read a line, copy it, and delete 'BSC-' in the copy.

      chomp;
      my $copy = $_;
      $copy =~ s/BSC-//;

      #  Print the original line and the copy.

      print "$_ $copy\n";
    }
}

__DATA__
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-20041204110000

##</code><code>##

-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000 -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 20041202143000
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-20041204110000 -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 20041204110000

##</code><code>##

-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000

##</code><code>##

BSC-20041202143000

##</code><code>##

20041202143000