open FH , "| cat " ;
    open STDOUT, ">&FH";

##</code><code>##

    my $foo = qr(a);
    open FH , "| cat " ;
    open STDOUT, ">&FH";