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