Select Code to Download

    
#! /usr/bin/perl -w
use strict;            #- matter of style
...
my @result = filterdata ($filter_handler,@data);  

print join("$/",map{join(" ",@$_)}@result).$/;