#! /usr/bin/perl # Converts Tab-separated DB into HTML file with Data on Separate Lines print " \n \n"; open tfile, "subst3.db"; while($x = ) { $x =~ s/\t/
/g; print $x; } close tfile; print " \n \n";