Re: Exact pattern match inside index()

[toolic]

in reply to Exact pattern match inside index()

You could use a regex with pos:

use warnings;
use strict;

my $s = 'CATALOG SCATTER CAT CATHARSIS';
my $k = 'CAT';
if ($s =~ /\b$k\b/g) {
    print "match started at position ", (pos($s) - length($k)), "\n";
}

__END__

match started at position 16

UPDATE: kennethk's @- is much cleaner.