Select Code to Download

1. A.txt
1|||GoRaiders|0473H30DF|123456|Oakland||Test|TD|07/02/2002|01/05/2003|
...
7|TD|01/12/2003|07/11/2003|SpareX|123456||||texas|Yes|Yes|Yes|This is 
+a test. Please ignore
8|TD|01/12/2003|07/11/2003|SpareX|544419||||newyork|Yes|Yes|Yes|This i
+s a test. Please ignore
9|Britney|01/12/2003|07/11/2003|M3|544420|666688855|||california|Yes|Y
+es|No|

1|||GoRaiders|0473H30DF|123456|Oakland||Test|TD|01/12/2003|07/11/2003|
2|||GoRaiders|019H4151|544419|SpareX||Test|TD|01/12/2003|07/11/2003|
...
6|||GoRaiders|902F2416|492487|SpareX||Test|TD|08/02/2002|01/20/2003|
7|||GoRaiders|019H4154|544821|SpareX||Test|TD|07/02/2002|01/20/2003|
8|||GoRaiders|924H2CEC|492489|SpareX||Test|TD|07/02/2002|01/20/2003|

#!/usr/bin/perl 
use strict; 
...
close FILEA;   
close NEWA: }  
rename 'A.txt.new', 'A.txt';