opendir IN, $dirname;
my @in = grep { /^[^.]/ } readdir IN;
closedir IN;

for my $in (@in) {
  open IN, '<', "$dirname/$in" || next;
  open OUT, '>', "$outdirname/$in" || die "can't open file output/$in";
  foreach(<IN>) { #read file line by line
  
	# Strings to correct Note: Escaped ( with \
	s/rotate\(-180/rotate\(-0/g;
	# Look at the current line
	my @look_in = <IN>;
	# <path is in this line, process line
	if( $target ~~ @look_in) {
		for my $key (keys %stroke_width_hash) {
			s/$key/$stroke_width_hash{$key}/g;
		}
	}
	
	
	# Print out line to OUT file
    print OUT $_;
  }
  close OUT;
  close IN;
}