$ perl -wE 'say +(split/([0-9]+)/,"BS123-bleble")[1]'
123