my ($before, $after) = $seq =~ /(..)$find(..)/;