Re^2: Constructing STDIN for an external progam

[Thelonius]

To build on Ovid's response, this should do what you want:

use strict;

my $cmdout = join " ", "perl printout.pl", @ARGV;
open OUT, "|$cmdout" or die "Cannot run $cmdout: $!\n";
while (<STDIN>) {
  s/essage/assage/sg;
  print OUT $_ or die "Error writing to $cmdout: $!\n";
}
close STDIN;
close OUT or die "Error closing $cmdout: $!\n";

[ikegami]

What if one of the args was two words? or it's? Your code won't work in those everyday situations, nevermind the security implications. You've invoking the shell without quoting and escaping your command. Use IPC::Open3, IPC::Run or IPC::Run3 to avoid having to do so.