while (<>) {
    if (/(d\d)/) {
        push @array, $1;
    }
}