Shell Programming and Scripting

$ ruby -ne 'a=$_.scan(/\d+/);puts a[0]' file

$ 
$ 
$ cat f16
Title 1
2* the thing of it
3 more words
4 some more
*5 what?
6 more and more
*7 I love it
8* boom!
9 it's
*8 still here
10
22 23 1 2134 4 2343 32 23 4 44
$ 
$ 
$ perl -lne '/^\D*(\d+)/ and print $1' f16
1
2
3
4
5
6
7
8
9
8
10
22
$ 
$ 

$ ruby -ne 'a=$_.scan(/\d+/);puts a[0]' trout.txt
1
nil
2
3
4
5
6
7
8
9
8
10
22
nil

sed -n 's/[^0-9]*\([0-9]\{1,\}\).*/\1/p'

sed -En 's/[^0-9]*([0-9]+).*/\1/p'

$ 
$ awk '{sub(/^[^0-9]*/,"",$0); sub(/[* ].*$/,"",$0); print}' f16
1
2
3
4
5
6
7
8
9
8
10
22
$ 
$