Select Code to Download

for my $word (qw( abc def )) {
   print  $word =~ /\Q$word/   ?1:0,"\n";  # 1 1
...
for my $word (qw( abc def )) {
   print  $word =~ /\Q$word/o  ?1:0,"\n";  # 1 0
}