my($line, @line); while(<IN>) { $line=$_; chomp($line); @line = split(/\./,$line); foreach(@line){ print OUT "$_\n"; } } [download]
In reply to Perl split by Gavin