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