>>321
$_ = my $str = '1#a2#BC10#0123456789';
my @str = ();
s/^(.{$1})//, push @str, $1 while s/^(\d+)#//;
print "$str => (@str)";

データ構造が糞だとコードも糞にならざるを得ない好例か。