if (!$flag && /($octet)/){
   print "$1\n";
}