I solved it: > sub filter_end ($) { > my($entity) = @_; > .... > my $from_header = $entity->head->get("From"); chomp($from_header); > $from_header =~ s/^.*<//; > $from_header =~ s/>$//; > $from_header = lc($from_header); Regards. Petra Humann -- Mail: humann at tcs.inf.tu-dresden.de WWW: http://wwwtcs.inf.tu-dresden.de/~humann/