#!/usr/bin/perl -w

sub lang_swish {
	my @out;
	foreach my $v1 (@_) {
		push @out,$v1;	# save original
		my $v2 = $v1;
		$v2 =~ s/HRV/Hrvatski/gi;
		push @out,$v2;	# save modified version
	}
	return @out;
}

1;
