s/\w\w(\d{4})\w+$/$+/ for @array;