#!/usr/bin/perl

if ($ARGV[0] eq "-type") {
print "SELECTION";
exit(0);
} elsif ($ARGV[0] eq "-name") {
print "LOWERTOUPPER";
exit(0);
} elsif ($ARGV[0] eq "-desc"){
print "Transform text to upper case";
exit(0);
}


print "REPLACE\n".uc($ARGV[0]);
