#!/usr/bin/perl
use warnings;
use strict;
use feature qw(say);


my @w = ('active', 'not active', 'mild active', 'moderate active');

for (@w) {
    my $r = reverse;
    say "$_: ", $r =~ /evitca(?! dlim| etaredom)/ ? 1 : 0, '.';
}