# Read all the data from STDIN in the $buffer variable
my $buffer = do { local $/; <STDIN> };

#Do a subtitution.
$buffer =~s/essage/assage/sg;

system("echo $buffer | perl printout.pl");