laberinto

#!/usr/bin/perl

#leer archivo y meter en matris
open F1, $ARGV[0] or die $!;
while(<F1>){
    chop $_;
    push @file, $_;
}
close F1;

foreach $line(@file){
    $n = length($line);
    for($x = 0; $x < $n; $x++){
        if(substr($line, $x, 1) eq "1"){
            print "1";
        }
        else {
            print " ";
        }
    }
    print "\n";
}