Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    print "$text found (grep)\n" if grep {$text eq $_} @cases;
    print "$text found (regex)\n" if $text =~ /^$re$/;
}