...
(my$nyear = localtime) =~ s/.+?(\w+)$/$1+1/eo;#:)
...