Oops, "(" was in the wrong place. $filelist =~ s/^(.*)((\s([0-9]+\.[0-9\.]*|NONE)\,.*,([0-9]+\.[0-9\.]*|NONE))+)$/$2/;
Jerry _______________________________________________ Info-cvs mailing list [EMAIL PROTECTED] http://mail.gnu.org/mailman/listinfo/info-cvs