Help for this page
my ($Line, $Filed, $Dvalue) = split(/\t/);
my ($Line, $Filed, $Dvalue) = split(/\t+/);