5 |
foreach my $v1 (@_) { |
foreach my $v1 (@_) { |
6 |
push @out,$v1; # save original |
push @out,$v1; # save original |
7 |
$v1 =~ s/(HRV|CRO)/Hrvatski/gi; |
$v1 =~ s/(HRV|CRO)/Hrvatski/gi; |
8 |
|
$v1 =~ s/SCC/Srpski/gi; |
9 |
$v1 =~ s/GER/Njemački/gi; |
$v1 =~ s/GER/Njemački/gi; |
10 |
$v1 =~ s/ENG/Engleski/gi; |
$v1 =~ s/ENG/Engleski/gi; |
11 |
$v1 =~ s/ITA/Talijanski/gi; |
$v1 =~ s/ITA/Talijanski/gi; |
12 |
$v1 =~ s/SLV/Slovenski/gi; |
$v1 =~ s/SLV/Slovenski/gi; |
13 |
$v1 =~ s/RUS/Ruski/gi; |
$v1 =~ s/RUS/Ruski/gi; |
14 |
$v1 =~ s/FRE/Francuski/gi; |
$v1 =~ s/(FRE|FR)/Francuski/gi; |
15 |
|
$v1 =~ s/MAC/Makedonski/gi; |
16 |
|
$v1 =~ s/HUN/Mađarski/gi; |
17 |
push @out,$v1; # save modified version |
push @out,$v1; # save modified version |
18 |
} |
} |
19 |
return @out; |
return @out; |