#!/usr/bin/perl
use strict;
use warnings;
my $str="30 30 36 33 36 36 36 33 36 34 26 24 21 17 17 23 27 27 31 31 34 33 33 33 36 36 37 38 38 38 38 38 35 40 34 34 34 31 37 36 37 37 40 40 49 40 40 40 40 40 40 40 40 33 30 30 30 30 30 42 45 45 45 45 45 49 42 42";
open (OUT,">format.out");
my @array=split(/ /,$str);
foreach(@array){
	if($_=~/\d+/){
		my $flag=0;
		print OUT "$_ ";
		my $count++;
		my $align=20;
		if ($count/$align==1){print "\n"; $flag=1;}
		if($flag==1){$count=0;}
	}
}