$in_file = "input.txt"; 
open (IN, "<$in_file") or die "Can't open $file: $!\n"; 
$out_file = "output.txt"; 
open (OUT, ">$out_file") or die "Can't open $file: $!\n"; 
 
while ( $line = <IN> ) { 
@fields = split(/\s+/,$line); 
print "$fields[2]\n"; 
} 
close IN; 
close OUT;