# do the magic and split into functions
@functions = split /(?=\bfunction\s)/, $data;

##</code><code>##

@functions = split /(?=\n\s*function\s)/, $data;