my $word = "abcde";
my @list = split(/(\Q$word\E)/, $string);