use File::Copy;
   my ($filetobecopied,$newfile);
   system('ls -lrt |  tail -15 | grep working > temp.txt');
   open FH,"<temp.txt" or die "can't open: $!";
   open FH1,">final.txt" or die "can't open: $!";
   while(<FH>) {
	my $line = $_;
        if($line=~/.*(L_.*)(\d{1})(\.txt)(\.working)/) {
	       #	print "$1 - $2 - $3 - $4 \n";
		my $one = $1;
		my $two = $2;
		my $three = $3;
		my $four = $4;
		my $val = 1;
       print FH1 $one , '1' , $three,"\n========================================== \n";
	}
   }
             $filetobecopied = "final.txt";
   close FH1 or die "can't close:$!";
  close FH or die "can't close: $!";

    $newfile = "/u/mindspring/data/fulfillment/FSI/outgoing/";
    copy($filetobecopied,$newfile) or die "File cannot be copied.";