#!/usr/bin/perl use File::Find; find sub { return if !($_ =~ /.*html$/); print $_; rename ($_, $_ . '~'); open (OUT, ">$_"); open (IN, $_ . '~'); while ($line = ) { $line =~ s()(\n); $line =~ s()(\n); print OUT $line; } close (IN); close (OUT); unlink($_ . '~'); print "\n"; }, ".";