Select Code to Download

$b=this_code_is_from_perlmonks_org;

...
    print $a,sprintf '%4s','*'x(2+($a cmp $b)), qq(\n);
    $b=$a
}

$level=12;
my $i=12;
...
    print sprintf '%'.$i.'s', '*'x$l, qq(\n)
        unless $l<0
}