Hi John,
You forgot at least a backslash, $string =~ s/\|+/\|/g; Should do the job. HTH George _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs