$line =~ s/<TAB>/\t/;