in reply to Formatting clue

hi friend, Try out this one 
open(FILE,"txt2.txt") or die $!;
while(<FILE>){
if($_ =~/(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/ || $_ =~/number=(\S+)/){
print "$1\t$2\t$3\t$4\t$5\t$6\t";
}
}

[download]

Replies are listed 'Best First'.
Re^2: Formatting clue
by AnomalousMonk (Archbishop) on Feb 18, 2009 at 12:03 UTC
    Does that produce the desired output? If warnings are turned on, does it run without warnings?
[reply]

In Section Seekers of Perl Wisdom