#!/usr/bin/perl
use open qw(:std :utf8);

$out = "@ARGV";
$out =~ s/(\w)/chr(ord($1)+65248)/eg;
print $out;