Select Code to Download

my $lastIP;

...
  print "$lastIP\n\n" if /Monitored circuits:/ and defined $lastIP;
  $lastIP = $1 if /((\d{1,3}\.){3}\d{1,3})/;
}