CUFP
tadman
snippet
<div class="Description">Simple, rudimetary Perl prototype stripper. For those occasions when the hands-on treatment is far too tedious.
<BR>
<BR>
Note that this only strips scalar-only prototypes. If you've got something else in there, it's probably for a reason.
<BR>
<BR>
Also null-prototypes (i.e. () ) are not stripped either since that would break your constant subs.</div>
<CODE>
#!/usr/bin/perl -piw
use strict;
s/^\s*(sub\s+\w+)\s*\(\$+\)/$1/g;
</CODE>