my $TRAP = POSIX::tmpnam();
close(STDOUT);
open(STDOUT, ">$TRAP")  || die("$!: $TRAP"); #+> didn't work
eval "print 'Waka waka!'";
seek(STDOUT, 0, 0);
close(STDOUT);
open(STDOUT, ">-");
open(INPUT, "<$TRAP") || die("$!: $TRAP");
$chldoutput = <INPUT>;

##</code><code>##

-- 
perl -p -e "s/(?:\w);(<A HREF="/index.pl?node=st&lastnode_id=479">st</A>)/'\$1/mg"