Select Code to Download

#!/usr/bin/perl -w

...


__END__

<? /**** $Id$ ****/
?>
...
?>
    </body>
</html>

#--- TokeParser::Simple String
1C: <? /**** $Id$ ****/
...

--- SNIP! ---
This shows HTML::TokeParser sees those three lines as comments not as 
+PI's.