Select Code to Download

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

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