#! /usr/bin/perl -w

open (MYFILE, "file.txt");
open (OUTFILE, "> outfile_while.txt");
while (<MYFILE>)
{
	@tmp = split (/\t/);
	chomp @tmp;

	print OUTFILE "$tmp[0] || $tmp[1]\n";
}
	

close (MYFILE);
close (OUTFILE);
