% date|perl -le '$_="x";while(readline *STDIN){printf uc};print"<$_>"'
TUE JUL 12 01:56:04 EDT 2005
<>