#!/usr/bin/perl

use NeuronFacFile;

my $file = new NeuronFacFile('http://www.site.uottawa.ca/~fbinard/EA/GP/SokobanEvolver/Sokoban.java');
my $Grid = join("", split(/\n/, $file->getContent()));
my $temp = "";


while($Grid =~ m/(\"M.*?\#.*?\"\s*[\+\,]?\s*)(.*)/){
    $Grid = $2;
    $temp = $temp . $1;
}
my @Grid = split(/\,/, $temp);
print join("--------\n\n", @Grid);