sub utl {
    $i = $_[0];
    $i =~ s#A#a#gsi;
    $i =~ s#B#b#gsi;
    $i =~ s#C#c#gsi;
    $i =~ s#D#d#gsi;
    $i =~ s#E#e#gsi;
    $i =~ s#F#f#gsi;
    $i =~ s#G#g#gsi;
    $i =~ s#H#h#gsi;
    $i =~ s#I#i#gsi;
    $i =~ s#J#j#gsi;
    $i =~ s#K#k#gsi;
    $i =~ s#L#l#gsi;
    $i =~ s#M#m#gsi;
    $i =~ s#N#n#gsi;
    $i =~ s#O#o#gsi;
    $i =~ s#P#p#gsi;
    $i =~ s#Q#q#gsi;
    $i =~ s#R#r#gsi;
    $i =~ s#S#s#gsi;
    $i =~ s#T#t#gsi;
    $i =~ s#U#u#gsi;
    $i =~ s#V#v#gsi;
    $i =~ s#W#w#gsi;
    $i =~ s#X#x#gsi;
    $i =~ s#Y#y#gsi;
    $i =~ s#Z#z#gsi;
    return $i;
}