for ($i=0; $i<=$#array; $i++) {
    $array[$i] =~ s/\w{2}(\d{4})\w+/$1/;
}