Select Code to Download

my  $octetstr;
($octetstr)= m/^Routing entry for\s+([\d\.]+)/ and last for @Output;
die "No Routing address found in \@Output\n" unless $octetstr;

my  @Route;
@Route= m/^Routing entry for\s+(\d+)\.(\d+)\.(\d+)\.(\d+)/ and last fo
+r @Output;
die "No Routing address found in \@Output\n" unless  @Route;