$ perl -le '
> $_ = q{BS123-bleble};
> print +( split m{(?x) (?: (?<=\D)(?=\d) | (?<=\d)(?=\D) )} )[ 1 ];'
123
$