#!/usr/local/bin/perl

while (<>){
if ( $_ =~ /(\d{2})(7030)(\d{2})/ ) {
print "s$1$3\n" ;
}
elsif ( $_ =~ /(\d{2})(7530)(\d{2})/ ) {
print "g$1$3\n" ;
}
elsif ( $_ =~ /(\d{2})(9710)(\d{2})/ ) {
print "eg$1$3\n" ;
}
elsif ( $_ =~ /(\d{2})(7535)(\d{2})/ ) {
print "d$1$3\n" ;
}
else { print $_ ; }
}