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