-l print while+s/./hex($`%10+$&)%15/eg^s//pop/e