Perl to script to split code/file based on specific markers placed in file.