Select Code to Download

#!/usr/bin/perl

...
printf "First: %X; third: %X\n",
  ord("\N{first character}"),
  ord("\N{third character}");