(my($token, $sep), $string) = split /PATTERN/, $string, 2;