Select Code to Download

use strict;
use warnings;
...
foreach (@array) {
        print "Matched :$_:\n" if /$value/;
}

Matched :revenuebytrafficker:

use strict;
use warnings;
...

my @matches = grep {/$value/} @array;
print ("Matched :" . (join ": :", @matches) . ":\n") if @matches;

Matched :revenuebytrafficker: :revengebysmoker: