My first impulse would be to do it like this.

 <input type=radio name=bar value="bar1" <TMPL_IF NAME="bar1_checked">
+checked</TMPL_IF>>
[download]

I don't know if you would consider this as bad as your first approach but it's a little better than the second I think.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]