Re: Трава перл...фсем курить. Коррективы.

[LaVei]

$text=~ s/\n|\r/ /g;

my $len = length$text;
my $width = (int(sqrt($len))+1);

my @ar = ($text =~ m/(.{1,$width}[ |\.])/g);
my $max = $#ar+1;

for (@ar)
{
        my $str = $_;
        $str =~ s/\s+$//;

        $str = &fill($str,$max);
        print $str."\n";

 }
 
sub fill
{
        my $str = shift;
        my $max = shift;

        my $str1;
        my $pos=1;
        my $i=1;

        while(length($str) <=$max)
        {               
                $pos =  index($str, " ", $pos);
                if($pos != -1)
                {
                substr($str, $pos, 1, "  ");
                $pos += 2+$i;
                $i++;
                }
        }
        

        return $str;
 }

Типа родил каменную чашу;-)
Данил