Select Code to Download

# Precompile all the patterns and store them into the key
# CompiledPattern
$_->{'CompiledPattern'} = qr/$_->{'Pattern'}/i for values %$users;
...
        warn "$line didn't match any users.\n";
    }
}

use List::Util 'first';

# Precompile all the patterns and store them into the key
...
        warn "$line didn't match any users.\n";
    }
}

# Precompile all the patterns and store them into the key CompiledPatt
+ern
$_->{'CompiledPattern'} = qr/$_->{'Pattern'}/i for values %$users;

...
        warn "$line didn't match any users.\n";
    }
}

# Precompile all the patterns and store them into the key
# CompiledPattern
$_->{'CompiledPattern'} = qr/$_->{'Pattern'}/i for values %$users;
...
        warn "$line didn't match any users.\n";
    }
}