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

##</code><code>##

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