Как сократить это выражение Perl

Я написал код ниже, чтобы обмануть Wordle (я не очень хорош в этом). Есть ли способ объединить следующую часть в один оператор регулярного выражения:

($word =~ m/c/i) and 
($word =~ m/a/i) and
($word =~ m/o/i)

То есть найти слова, содержащие все три буквы «с», «а», «о», в любом порядке.

#!/usr/bin/perl
use 5.30.3;
use warnings;

my $dic_file = "/usr/share/dict/web2";
open (IN,"<", $dic_file) or die "Cannot open file.\n $!";

while (my $word=<IN>){
    chomp $word;
    if (length($word) == 5){        
        if (     ($word !~ m/[rtn]/i) and 
                ($word =~ m/c/i) and 
                ($word =~ m/a/i) and
                ($word =~ m/o/i)
          ){
                say $word; 
            }

    }
}