1234 2321 0 45 1st 2122 sdsa 0 0 34 2313 dsad 43 2nd 1232 ffff 0 0 1st 3213 sadf 0 34 2133 dada 0 2nd #### $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 = ) { @fields = split(/\s+/,$line); print "$fields[2]\n"; } close IN; close OUT;