Revision 42 (by dpavlin, 2003/03/15 21:48:48) filter fix && optimisation
 
#!/usr/bin/perl -w

# example filter to convert ISBN and ISSN to hyphen and non-hyphen version

sub isn_swish {
	my @out;
	foreach my $nr1 (@_) {
		push @out,$nr1;	# save original
		$nr1 =~ s/\-//g;
		push @out,$nr1;	# save version without hyphens
	}
	return @out;
}

1;