Re: break out my foreach loop

[NetWallah]

Somewhat more concise code:

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

Update: If this is IPV4, you can extract the octets of the IP using

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;