D:\pscrpt>perl -e "print ord('£')"
163
D:\pscrpt>perl -e "print chr(156)"
£
D:\pscrpt>perl -e "print chr(163)"
ú