in reply to remove lending figures

Hard to tell. What does "lending" mean in this context? The ones before or after the dot(s)?

#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use Cpanel::JSON::XS; my $json = '{"dot":"0.0","colon":"0:00"}'; my $structure = Cpanel::JSON::XS->new->decode($json); for my $type (keys %$structure) { say "$type: ", $structure->{$type} =~ s/[.:].*//r; }

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]