Select Code to Download

while(<FILE>){
$_ .= defined(my $temp = <FILE>)?$temp:'';
#do whatever you want with $_
}