my @results = split(/dbDelimeter/,`SQL_Query`); while(@results) { (var1,var2,var3,etc) = splice(@results, 0, 28); $var1 =~ s/\n//g; $var2 =~ s/oldDateFormat/newDateFormat/; $var3 =~ s/moreReplacements/DoneHere/; $output = sprintf (%-10s %-10s %10s,$var1,$var2,$var3); $finalOutput .= $output; } open LESS, '|less -cSRM' or die $!; print LESS $finalOutput; close LESS;