http://qs1969.pair.com?node_id=76080

#!/usr/bin/perl -w use strict; $_ = " '''''''''' `''''''''' '''''''' '''' `''''''''' '''''''''' `''''''' '''' '''' '''' '``' `''' '''' '''' '''` '''' '''' '''' '''` '''' '''''''''' ''''''`''' '''''`'''' '`'' '''''''''' ''''''``'' '''''''''' '''' `''' ''`' '''' '''' '''' '''' '`'' '''' '''' ''`` '''' ''''`'`''' `''' '''' ''''`''''' `''' '''''''''' '''' '``` `````````` "; s[[^'`]][]g;print((length$1>0)?chr(96+length$1):' ')while(m(('*)`)g);