open(FILE1, 'File1.txt'); open(FILE2, 'File2.txt'); while ($line = ) { @lines=split(' ',$line); print $lines[1]; if($lines[1] != ){ print "$line"; } }