#!/usr/bin/perl
$_="1 2 blue 4 yellow orange 6 7 yello purple ellow";
my @matches=/(\w*ello\w*)/g;
foreach my $one (@matches) {
     print "[$one]\n";
}

##</code><code>##

$ perl tester
[yellow]
[yello]
[ellow]