Select Code to Download

use strict;
use warnings;
...
   ? qq{    Matched: $_\n}
   : qq{Not matched: $_\n}
   for @words;

Not matched: test
    Matched: tesi
    Matched: stoat
Not matched: trout