# perl -C2 -le'use charnames qw(:full); print "\N{POUND SIGN}"'
£