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