in reply to Collect numbers without the text
undef $/; print join('',grep{m/\d/} split(//,<DATA>)); [download]