Unicode fun

unicode_smallcaps.pl

#!/usr/bin/perl -CS
%lookup = ( a => "\x{1d00}", b => "\x{299}", c => "\x{1d04}", d => "\x{1d05}",
	e => "\x{1d07}", f => "\x{493}", g => "\x{262}", h => "\x{29c}",
	i => "\x{26a}", j => "\x{1d0a}", k => "\x{1d0b}", l => "\x{29f}",
	m => "\x{1d0d}", n => "\x{274}", o => "\x{1d0f}", p => "\x{1d18}",
	q => "\x{1eb}", r => "\x{280}", s => "s", t => "\x{1d1b}",
	u => "\x{1d1c}", v => "\x{1d20}", w => "\x{1d21}", x => "x",
	y => "\x{28f}", z => "\x{1d22}",);
while(<>) { s,[a-z],$lookup{$&} // $&,ge; print; }