Of course there is!

@stdin=<>;

for $i (0..$#stdin){
print $stdin[$i];
}

for $i (0..$#stdin){
print uc $stdin[$i];
}
[download]

With my tongue planted firmly in my cheek I say, "Cheers"