use POSIX;

...

my $pid = open(STDOUT, "|-") // die "unable to fork new process";
unless ($pid) {
  while (<>) { print if /the-regular-expression-goes-here/ }
  POSIX::_exit(0);
}

# after this point, STDOUT is filtered