$regex = '\w159\.230\.([01]?\d\d?|2[0-4]\d|25[0-4])\.([01]?\d\d?|2[0-4]\d|25[0-4])';
while (<INFILE>) {
        if (m/$regex/os) {
        print PIXOUT $_;