Select Code to Download

my $TRAP = tmpfile();
$no = fileno($TRAP);

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