@ARGV=($filename); # put the filename where perl can find it.
	    while(<>){ 
			foreach my $search (keys %{$replacements->{$filename}}){
				s/$search/$replacements->{$filename}->{$search}/;
				print;
			}
		}
		print STDERR "  done\n";
	}
}