my $TRAP = tmpfile();
$no = fileno($TRAP);
##</code><code>##

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