cpi/filter/cpi_220.pm

#!/usr/bin/perl -w

sub cpi_220 {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/a/profesionalno opremljen instrument/gi or
                $v1 =~ s/b/djelomièno opremljen instrument \(zahtjeva dodatnu opremu\)/gi or
                $v1 =~ s/c/instrument samo za internu uporabu \(npr\. istra¾ivanje\)/gi or
                $v1 =~ s/d/instrument koji se u ovom stupnju opremljenosti ne mo¾e se koristiti/gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	#!/usr/bin/perl -w
2
3	sub cpi_220 {
4	my @out;
5	foreach my $v1 (@_) {
6	$v1 =~ s/a/profesionalno opremljen instrument/gi or
7	$v1 =~ s/b/djelomièno opremljen instrument \(zahtjeva dodatnu opremu\)/gi or
8	$v1 =~ s/c/instrument samo za internu uporabu \(npr\. istra¾ivanje\)/gi or
9	$v1 =~ s/d/instrument koji se u ovom stupnju opremljenosti ne mo¾e se koristiti/gi;
10	push @out,$v1; # save modified version
11	}
12	return @out;
13	}
14
15	1;