Regular Expression Perl

#!/usr/bin/perl -w
while (<>) {
    tr/a-z/A-Z/;
    print;
}