use warnings;
use strict;
use YAPE::Regex::Explain;

while (<DATA>) {
    print if /(?<!9759)-222-\w/;
}