my $keep = substr( $_, 0, 2 );
$_ = substr( $_, 2, length($_) );
s/0+/0;
$_ = $keep . $_;