Hi, I have a perl code that recognises the name of the days and translates them into an other language. My code looks like:

next unless /(Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday
+)/g;


#there is one file for evert language containing the translations
open (SRC, "<db-dates/$src") or die "can't open file '$src' $!";
my @src = <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" ; }
   }
[download]

This script, recognises the days and translate them correctly, but I am not able to print the rest of the phrase. For instance, if the sentence is Today is Monday I want to print Today is lundi for french or Today is lunedi for italian. At the moment is translates only lundi or lunedi. Thank you in advance for your time.