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;

##</code><code>##

open(my $data, "+>", undef) or die;
$data = `SQL_Query`;     ## Method 1
print $data `SQL_Query`; ## Method 2

## processing to parse and format data

system("less $data"); ## Output: None / Doesn't Work
print $data;          ## Output: GLOB(0x1c8ef430)