4 |
my @out; |
my @out; |
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/g; |
8 |
$v1 =~ s/SCC/srpski/gi; |
$v1 =~ s/SCC/srpski/g; |
9 |
$v1 =~ s/GER/njemački/gi; |
$v1 =~ s/GER/njemački/g; |
10 |
$v1 =~ s/ENG/engleski/gi; |
$v1 =~ s/ENG/engleski/g; |
11 |
$v1 =~ s/ITA/talijanski/gi; |
$v1 =~ s/ITA/talijanski/g; |
12 |
$v1 =~ s/SLV/slovenski/gi; |
$v1 =~ s/SLV/slovenski/g; |
13 |
$v1 =~ s/RUS/ruski/gi; |
$v1 =~ s/RUS/ruski/g; |
14 |
$v1 =~ s/(FRE|FR)/francuski/gi; |
$v1 =~ s/(FRE|FR)/francuski/g; |
15 |
$v1 =~ s/MAC/makedonski/gi; |
$v1 =~ s/MAC/makedonski/g; |
16 |
$v1 =~ s/HUN/mađarski/gi; |
$v1 =~ s/HUN/mađarski/g; |
17 |
$v1 =~ s/SWE/švedski/gi; |
$v1 =~ s/SWE/švedski/g; |
18 |
$v1 =~ s/BOS/bosanski/gi; |
$v1 =~ s/SAN/sanskrt/g; |
19 |
$v1 =~ s/SAN/sanskrt/gi; |
$v1 =~ s/BOS/bosanski/g; |
20 |
push @out,$v1; # save modified version |
push @out,$v1; # save modified version |
21 |
} |
} |
22 |
return @out; |
return @out; |