#!/usr/bin/perl -w use strict; $_ = " '''''''''' `''''''''' '''''''' '''' `''''''''' '''''''''' `''''''' '''' '''' '''' '``' `''' '''' '''' '''` '''' '''' '''' '''` '''' '''''''''' ''''''`''' '''''`'''' '`'' '''''''''' ''''''``'' '''''''''' '''' `''' ''`' '''' '''' '''' '''' '`'' '''' '''' ''`` '''' ''''`'`''' `''' '''' ''''`''''' `''' '''''''''' '''' '``` `````````` "; s[[^'`]][]g;print((length$1>0)?chr(96+length$1):' ')while(m(('*)`)g);
In reply to (even more) code art by iamcal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |