#!/usr/bin/perl
use warnings;
use utf8;
use Encode;

$s = "abc中cba";

for (split('',$s)){
    if (ord($_) < 128){
        print;
    }else{
        printf('%%%X',ord($_)) for (split('', encode('UTF-8', $_)));
    }
}
print "\n";