my $sample = "041424344454647484940414";
(my $output = $sample) =~ s/.\K.//g;  # alternative s/(.)./$1/g;
die $output unless $output eq "012345678901";