$mystring = "1,2,3,4,5";
$mystring =~ s/,//g;  #remove ,

print $mystring."\n";

$mystring = "abcdefg";
print uc($mystring);