Hello
I
am
happy

##</code><code>##

Hello I
I am
am happy

##</code><code>##

my $input= "input.txt";
my $output = "output.txt";
open (OUT, ">$output") || (die "Can't open $output\n");
open (IN,"$input") || (die "WARNING: $input not found\n");

	my $line = <IN>;
	while($line){
		chomp $line;
		push(@token, $line);
		$line = <IN>;
	}
	
	my $shift=2;
	my $counter=0;
	my $TokenTotal = @token;
	while($counter <= ($TokenTotal-$shift)){
		print OUT "$token[$counter]\t$token[$counter+1]\n";
		$counter++;
		$line = <IN>;
	}
close IN;
close OUT;
}