@bits = ( $string =~ m[(.*?)(?:PATTERN)]g, $' );