(even more) code art

[iamcal]

#!/usr/bin/perl -w
use strict;

$_ = "
''''''''''    `'''''''''    ''''''''      ''''
`'''''''''    ''''''''''    `'''''''      ''''
''''  ''''    '``'          `'''  ''''    ''''
'''`  ''''    ''''          ''''  '''`    ''''
''''''''''    ''''''`'''    '''''`''''    '`''
''''''''''    ''''''``''    ''''''''''    ''''
`'''          ''`'          ''''  ''''    ''''
''''          '`''          ''''  ''''    ''``
''''          ''''`'`'''    `'''  ''''    ''''`'''''
`'''          ''''''''''    ''''  '```    ``````````
";
s[[^'`]][]g;print((length$1>0)?chr(96+length$1):' ')while(m(('*)`)g);