$ perl -wE 'say +(split/([0-9]+)/,"BS123-bleble")[1]' 123 [download]
In reply to Re^2: How can i extract a number from an string by JavaFan in thread How can i extract a number from an string by Sombrerero_loco