vic

#!/usr/bin/env perl

use Pegex::Parser;
use VIC::Grammar;
use VIC::Receiver;

my $parser = Pegex::Parser->new(
    grammar => VIC::Grammar->new,
    receiver => VIC::Receiver->new,
);

$parser->parse(do {local $; <>});

print $parser->receiver->data;