use strict; use warnings; my $value; open(FILE, "diakritika.txt"); my $file = <FILE>; my %change = ( 'č' => 'c', 'š' => 's', 'ž' => 'z', 'ť' => 't', ); foreach my $key(keys(%change)) { $value = $change{$key}; $file =~ s/$key/$value/g; } close(FILE); print $file;
There are currently 9983 K available in 2nd Guild's K-treasury.