Are you looking for substr?

Maybe you want to use split again, sort of like:

my @frangments = split /$enzseq/i, $seq;
[download]