use strict;
use warnings;

my $file = $ARGV[0];
my $s;

if (defined $file) {
    # parse data from file argument
    open my $fh, '<', $file
        or die "Failed to open file ($file):$!\n";

    # for processing speed, tossing out full line comments and empty lines now
    while (<$fh>) {
        next if /^\s*#.*$/ and !/^\s*#\s*base\s*=/;
        next if /^\s*$/;
        $s .= $_
    }
}
else {
    # parse data from DATA
    while (<DATA>) {
        next if /^\s*#.*$/ and !/^\s*#\s*base\s*=/;
        next if /^\s*$/;
        $s .= $_
    }
}

close $fh or die "Failed to close file ($file): $!\n";

#print STDERR "DATA :\n$s\n";


use Regexp::Grammars;

my $parser = qr/
#    <logfile: ->
#    <debug: on>
    <nocontext:>
    <plist_file>
    <MATCH=(?{ $MATCH{plist_file} })>

    <token: float>           \d+(\.\d+)?
    <token: global_plist_declare>    GlobalPList|LocalPList
    <token: reference_plist_declare> PList
    <token: plist_name>      \w+
    <token: plist_option>    \[[\w \.,]*\]
    <token: base_number>     \d+
    <token: comment>         \#[^\n]*
    <token: pat_declare>     Pat|Pattern
    <token: pat_name>        \w+
    <token: tag>             \w+
    <token: plist_open>      \{
    <token: plist_close>     \}
    <token: file_name>       [\w\.]+

    <rule: plist_file>
        <version>
        <[global_plist]>+

    <rule: version>
        Version <float> \;
        <MATCH=(?{ $MATCH{float} })>

    <token: embedded_base>
        \#\s*base\s*=\s*<[base_number]>+ % ,\s*\n
        <MATCH=(?{ $MATCH{base_number} })>

    <token: tags>
        \#<[tag]>+ % ,\#
        <MATCH=(?{ $MATCH{tag} })>

    <rule: global_plist>
        <.global_plist_declare>
        <plist_name>
        <[plist_option]>* % \s*
        <.plist_open>
        <embedded_base>?
        (<[data_node]> | <.comment>)+
        <.plist_close>

    <rule: data_node>
        <pattern> | <global_plist> | <reference_plist>

    <rule: reference_plist>
        <.reference_plist_declare>
        (  <file_name> : <plist_name>
           | <plist_name>
        )
        ;

    <rule: pattern>
        <.pat_declare> <pat_name> ; <tags>?

/xms;

$s =~ $parser;

use Data::Dumper;
open $fh, '>', 'C:\tmp\tmp' or die "FAILED!\n";
print $fh "RESULTS:".Dumper(\%/);
print STDERR "RESULTS:".Dumper(\%/);

__DATA__
Version 1.0;

# Plist SVN Url: $HeadURL: https://XXXXXX...
# Plist SVN Revision: $Id: gt.plist 2555 2014-02-06 16:16:26Z vsgatcha $

# RunDir: /XXXXXX...

GlobalPList plist1 [option1] [option2] {
    #base=111
    # this is a full line comment
    Pat n1000000g0000001; # this is a partial line comment
    Pat n2000000g0000002; #HOT#

    LocalPList plist2 {
        Pat n5000000g0000005;
        GlobalPList plist4 { Pat n8000000g0000008; #KEEP# } }

    Pat n3000000g0000003; #HOT,COLD#
    Pat n4000000g0000004;

    PList plist2;

    PList file1:plist3;
}

GlobalPList plist2 [option3] {
    PList plist1;
    Pattern n6000000g0000006;
    Pattern n7000000g0000007;
}