>perl -wMstrict -le
"use constant RX => qr{ [atc]{3} }xms;
 my $s = 'the cat in the hat';
 print qq{found a $1} if $s =~ m{ ( @{[ RX ]} ) }xms;
"
found a cat