my @numbers;
while (<FILE>) {
  push @numbers, $1 if /(\d+)$/;
}

##</code><code>##

my @numbers = map /(\d+)$/, <FILE>;