@matches = ( $TEXT =~ /(192\.168\.1\.[\d]+)/g);
foreach my $val (@matches) {
   print "$val\n";