in reply to Re^2: Phone Number Regular Expression
in thread Phone Number Regular Expression

You can set off variables from their surrounding text by enclosing the variable name in braces: 
s/800( |-|.)555-(?!9999)([0-9]{4})/888${1}555-$2/;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom