$text = "@ARGV";
$text =~ s/(\w)\1/($1$1)/ig;
print $text, "\n";