while (<>)
{
  for (/(\d+)/g)
  {
    print $_, "\n";
  }
}