#!/usr/bin/perl
use locale;
use pt;

while(<>){
   s/(\w+)/"(".pt::run($1).")"/ge;
   print;
}