use strict;
use warnings;

my @array = ('account_trend', 'trend_report', 'revenuebytrafficker');
my $value = qr'reve.*ker';

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

##</code><code>##

Matched :revenuebytrafficker:

##</code><code>##

use strict;
use warnings;

my @array = qw(trend_report revenuebytrafficker revengebysmoker);
my $value = qr'reve.*ker';

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

##</code><code>##

Matched :revenuebytrafficker: :revengebysmoker: