#!/usr/bin/perl -w

use strict;

# variables

my $eng;


# main 

print "String : \n";
($eng = <STDIN>);

($eng =~ s/u/a/i) if ($eng =~ /^.*u.*/g);

print $eng;