or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
'#sharkfin soup fin #fish fingers fin' -> 'sharkfin soup' 'fish finger
+s'
'9 fleas, 87 ticks, 654 lice.' -> '9' '87' '654'
'42 cats #some sheep fin and 1 dog' -> '42' 'some sheep' '1'