print chr(0x141);

##</code><code>##

print "\x{141}";

##</code><code>##

print chr(321);

##</code><code>##

if($someInputString eq "Unicode String Here"){
...
}