Select Code to Download

sysread( FCS, my $data, $eData - $sData ) or die $!;

my %text = split $delim, $text;

my %text = split quotemeta( $delim ), $text;

if( $text{ '$DATATYPE' } eq 'I' and defined $text{ '$P1R' } ) {
    my $mask = $text{ '$P1R' } - 1;
    $_ &= $mask for @data;
}

my $par = $text{ '$PAR' };

for( my $i = 0; $i < @data; $i += $par ) {
    print join ' ', @data[ $i .. $i + $par - 1 ];
}

my %tmpls = (
    '1,2,3,4' => {
...
        D => { 64 => 'd>*' },
    },
);

my $tmpl = $tmpls{ $text{ '$BYTEORD' } }
                 { $text{ '$DATATYPE' } }
                 { $text{ '$P1B' } };

#! perl -slw
use strict;
...
for( my $i = 0; $i < @data; $i += $par ) {
    print join ' ', @data[ $i .. $i + $par - 1 ];
}