http://www.perlmonks.org?node_id=1190401


in reply to Re^3: Confession of a hard headed Monk
in thread Confession of a hard headed Monk

Which can be shortened to
my $splicer = int(@list / $columns) + (@list % $columns > 0);

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Replies are listed 'Best First'.
Re^5: Confession of a hard headed Monk
by Lady_Aleena (Curate) on May 16, 2017 at 19:24 UTC

    That gets a little long for things like the following:

    int(scalar split(/, /, $string) / $columns_for_string) + (scalar split +(/, /, $string) % $columns_for_string > 0);

    8)</c>

    No matter how hysterical I get, my problems are not time sensitive. So, relax, have a cookie, and a very nice day!
    Lady Aleena