#!/bin/perl5

use strict;
use warnings;

my $rec = q{maps_c7    360_925_RV     3195943 00    56     0K9048};

my @flds = unpack qq{A10xA14xA7xA5xA6xA6}, $rec;

print qq{*$_*\n} for @flds;


##</code><code>##

*maps_c7*
*360_925_RV*
*3195943*
*00*
*56*
*0K9048*