http://www.perlmonks.org?node_id=722113


in reply to Stripping CGI.pm tags

you could play with CGI.pm's innards to get a stack trace when font is called...

use CGI::Carp qw[ confess ]; my $old_font = \&CGI::font; *CGI::font = sub { confess "font here!"; $old_font(@_) };

or you can just replace it with a sub that returns a "<span class=""> with the class determined by what's passed in...

(udpate: this does involve you editing the code manually though)

@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;