#!/usr/bin/perl -w -i.bak -p

$_ = uc;