open FILE, "<", $file;
while(<FILE>);
  chomp;
  my @words = split;
  foreach my $word ( @words ){
    # my $newword = `sed $word`;        # UPDATE: original lazy typing
    my $newword = `echo $word | sed`;   # UPDATE: more realistic
    print $newword, "\n";
  }
}
close FILE;