#!/usr/bin/perl

use strict;

sub simstr {
	$_ = shift;
	/([a-z]|\d+)$/i;
	my $ch = $1;
	$ch++;
	$ch =~ s/.*(.)$/$1/ if ($ch =~ /[a-z]/i);
	substr ($_, -(length $1)) = $ch;
	$_;
}

for (<DATA>) {
	chomp;
	print "$_;" . simstr ($_) . "\n";
}


__DATA__
AAA30
BBC5
SHT12H
DAL33B
BBC49
AAA31
DAL33A
BBC6
SHT12G
BBC50
CBG99
WXYZ