quine-ish

[iamcal]

#!/usr/bin/perl -w

use strict;

  my                          @a
                              =(
  "5  1115151131  2117120181  ","6111511
  31          11  31      71  11      13
  11  1311131","  31      19  04      12
  90  61      00  00      04  11      15
  15  1500000061  1511131113  10      00
  00              00
0"                );

@a=reverse(split//, join('',reverse map{s
/\s//xg;$_}@a));while(@a){my$c=pop@a;for
(my $i=0;$i<$c;$i++){print' 'x pop(@a);
print'*'for(1..pop@a);}print"\n"if$c;}