Select Code to Download

my $string = "CATALOG SCATTER CAT CATHARSIS";
my $key = 'CAT';
$string =~ /\b\Q$key\E\b/;
print "$key found at $-[0]\n";