undef $/;
print join('',grep{m/\d/} split(//,<DATA>));