return (\%cellrecord);
}
sub _trim {
my $string = shift;
my $string = shift // q{};
return unless $string;
$string =~ s/^\s+|\s+$//g;
return $string // q{};
return $string;
-