$_ =~ s/(print)\s*("\w+")/\$lang->$1($2, \$currentUser->lang() )/g;