#!/usr/bin/perl -w

use PDL;

$matrixfile = $ARGV[0];

open(MATRIX, "$matrixfile") ||
  die "Error: Can't open $matrixfile file for reading: $!\n";

@matrix = <MATRIX>;

for(my $i = 0; $i < @matrix; $i ++)
{
    $a = substr($matrix[$i], 0, 5);
    $b = substr($matrix[$i], 6, 5);
    $c = substr($matrix[$i], 12, 5);
    $d = substr($matrix[$i], 18, 5);
    $cd = substr($matrix[$i], 24, 5);
    
    my $dmat = pdl [
                    [ $a, $b, $c, $d],
                    
                }

    ];  

##</code><code>##

#!/usr/bin/perl -w
use PDL;

$matrixfile = $ARGV[0];

open(MATRIX, "$matrixfile") ||
  die "Error: Can't open $matrixfile file for reading: $!\n";

@matrix = <MATRIX>;

for(my $i = 0; $i < @matrix; $i ++)
{
    $a = substr($matrix[$i], 0, 5);
    $b = substr($matrix[$i], 6, 5);
    $c = substr($matrix[$i], 12, 5);
    $d = substr($matrix[$i], 18, 5);
    $cd = substr($matrix[$i], 24, 5);
    
    my $dmat = pdl [
                    [ $a, $b, $c, $d],
                    ]
};