On Tue, 29 Jun 1999, Vicki Brown wrote: > There we go :-) Other than that this: > > $fname =~ s|^.*/([^/])\.phd\..*$|$1|g or next; ...should be this: > > $fname =~ s|^.*/([^/+])\.phd\..*$|$1|g or next; I had actually tested this thing, but must have made mistakes when typing it back into the email. I don't know why I didn't just use copy and paste... ==== Want to unsubscribe from Fun With Perl? ==== Well, if you insist... Send mail with body "unsubscribe" to ==== fwp-request@technofile.org