in reply to rename files

Untested, using the command-line 'rename' utility: 
% rename 's/(\d)\.gif/$1+398 . ".GIF"/e' *.gif

[download]
Update: minor fix to filename suffix.

In Section Seekers of Perl Wisdom