#!/usr/bin/perl
use strict;
use warnings;
my @ar=<DATA>;
my $str=join'',@ar;
#print $str;
if($str=~ s/"([^"]*)"/uc($1)/eg)
{
print $str;

}
__DATA__
output = "    as  (10) print "it if achieved. print" # This is comment.NUMBERS"

output =     AS  (10) PRINT it if achieved. print # THIS IS COMMENT.NUMBERS