[vox-tech] Perl script help

[David Hummel]

On Wed, Mar 24, 2004 at 03:32:58PM -0800, Richard Crawford wrote:
> 
> This script is supposed to remove everything between <form and reset>. 

Here's another more terse version:

=====
#!/usr/bin/perl -i
$/='';
$d = <>;
$d =~ s/<form.*?reset>/<!-- form action removed -->/gs;
print $d;
=====

Call it with file arguments.

-David