m|/sorry/| && ban(split ' ', $_);

##</code><code>##

# ./script.pl foo bar baz

##</code><code>##

sub ban {
    my $line = shift;
    ...

    my ($proxy) = $line =~ m| - \S+/(proxy_\S+)|;
    my @cutoff = grep /$proxy/, @cfg;
    ...