Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $r = reverse;
    say "$_: ", $r =~ /evitca(?! dlim| etaredom)/ ? 1 : 0, '.';
}