OK -- so you want to delete the 'BSC-' and display the original, followed by the new version. The following code does that:

#!/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
[download]

On my system, it produces the following output:

-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000 -rw-rw-r
+w- 1 bsmbin bsmbin 303 Dec 3 02:06 20041202143000
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-20041204110000 -rw-rw-r
+w- 1 bsmbin bsmbin 303 Dec 4 23:00 20041204110000
[download]

Now, you've had a bit of a rough time in the Chatter Box lately .. I recommend that, unless you have a quick question, don't bother asking there. Post a node instead, explaining a) what you are trying to do, b) the approaches you've tried and c) where you think you're stuck. Then don't complain your node isn't getting any replies -- that's only going to reduce the chances you'll get replies.

And when in doubt, make your examples as simple as possible. Trying to wade through

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

is tough .. I would have suggested just trying to change

BSC-20041202143000
[download]

to

20041202143000
[download]

And for that, just reading Learning Perl or a couple of pages on this site should have helped you solve the problem.

Good luck.

use strict;
use warnings;
my $var = "-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-200412041100
+00 -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 20041204110000";

my ($transformed) = $var=~s/BSC-//;

print $var . " " . $transformed . "\n";
[download]