#!/usr/bin/perl

my $a = 'b019200184010';
my $counter = 0;

for ( my $i = 0; $i <= length($a); $i++) {
    $counter++ if ( substr( $a, $i, 1) eq 0 );
    print substr($a, $i, 1) if ( $counter > 0 );
}