split /0/, $var, 2;
[download]

$ perl -le'
for my $string ( "b019200184010", "bhs019200184010" ) {
    my ( $first, $second ) = split /0/, $string, 2;
    print "First: $first  Second: $second";
    }
'
First: b  Second: 19200184010
First: bhs  Second: 19200184010
[download]

my ($x, $y) = $s =~ /^(.*?)0(.*)/s;

  -or-

my ($x, $y) = $s =~ /^([^0]+)0(.*)/s;
[download]

#!/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 );
}
[download]