$_ = "800 555-9998";
s/800( |-|.)555-(?!9999)([0-9]{4})/888$1555-$2/;
print $_;