use Tie::Input::Insertable;
tie *FOO, 'TIE::Input::Insertable', *STDIN;

while (<FOO>) {
  print FOO "Hello, world\n" if /foo/;
  print $_;
}