in reply to codeopen(INPUT, "<INPUT") gives INPUT opened only for output

s/Yields Filehandle OUTPUT/Yields Filehandle INPUT/

I s/OUPUT/INPUT/ while editing as I thought "OUTPUT opened only for output" sounded odd and I missed one. 

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

[download]

In Section Seekers of Perl Wisdom