$/='';
while (<DATA>) {
  print "$1\n" if /(\d)\n\n/;
}