in reply to HOW CAN WE MAKE A TRIANGLE LIKE THIS IN PERL

$_ = "*****"; print $_,$/ while( s/\*// );