print “Enter a String”;
 
$input=<STDIN>;
 
chomp($input);
 
print “Replacing Vowels with digitsn”;
 
$input =~ s/a/1/g;
$input =~ s/e/2/g;
$input =~ s/i/3/g;
$input =~ s/o/4/g;
$input =~ s/u/5/g;
 
print “Result – “;

print $input;