$cgi -> table ( #opening table
                    Tr({-align=>CENTER,-valign=>TOP},
                    [    #TR
                    td(['Name', 'Surename','Phone'])
                    ] #TR
                    )
                ); #Closing table


##</code><code>##

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