opendir(DIR, ".");
for $file (glob("*.shtml"))
{
	$line = "";
	$file_data = "";
	open(FILE, $file);
	my @data = <FILE>;
	foreach my $line (@data)
	{
		#Work to be done on each line of the file

		$file_data .= $line; #rebuild file
	}
		open (WRITE_FILE, ">$file");
		print WRITE_FILE $file_data;
		close WRITE_FILE;
		close FILE;
        print "Processing... ".$file."... Done!\n";
}
close DIR;