I should point out that the code in the eval will be unknown, not wirtten by me no idea what's in it. Also, I have already dupped STDERR to STDOUT as well.

UPDATE: Clearly dupping STDERR it is not right, fixed that I am now trying to open STDERR to the same file as STDOUT in the same way (though one is > and the other is >>)

UPDATE 2: I should also note that I'd rather not use IO::Scalar as it's not standard even in 5.6.1. Maybe I'm just asking for too much? But it seems that the only thing preventing a reasonable solution is the warning about using the filehandles once. And I'd like to understand it before I do local $^W=0;

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