sub strip ($) {
$_ = shift if @_;
s/(^\s*|\s*$)//g;
s/\s\s/ /g;
return $_;
}
my $journal1 = map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t");
(my $journal2) = map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t");
my $journal3 = strip(map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t
+"));
(my $journal4) = strip(map { s/[\s.-]*$//g; $_ } $marc->subfield(773,
+"t"));
print "1 = $journal1\n";
print "2 = $journal2\n";
print "3 = $journal3\n";
print "4 = $journal4\n";
1 = 1
2 = Tieteessä tapahtuu
3 = 1
4 = 1