next unless /(Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday)/g; #there is one file for evert language containing the translations open (SRC, "; chomp(@src); for my $i (0 .. $#src){ $dayname =~ s/@src[$i]/@tgt[$i]/g } given($tgt){ when("fr_fr") { print “$day" ; } when("it_it") { print “$day" ; } default { print “$day" ; } }