#!/usr/bin/perl -w
.....
system(q#perl -i.bak -p -e '$_ = uc'#);
.....