Select Code to Download

use Regexp::Common qw/net/;
if ($line =~ /Relay access denied/) {
    my @ips = $line=~/$RE{net}{IPv4}/g;
    print "$_\n" for @ips;
}