Select Code to Download

# your data
my @vocabulary = qw(a abc abcd abd bc); 
...
my $success = $sentence =~ /^(?:$re)*$/;
# show result
print $success || 0;

1

use re 'debug';