#!/usr/local/bin/perl

while ($line = <STDIN>) {
        $line =~ tr/aeiou/AEIOU/;
        print ($line);
}
