in reply to Re: Splitting a word
in thread Splitting a word

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