foreach $column (@db_cols) {
$test = ''; # clears the temp variable for each field
$test = $rec{$column}; # Assigns the field info to a temp variable
$test =~ s/<LI>/ /g;
$test =~ s/<([^>]|\n)*>//g; # Strip HTML codes out of the string
$test =~ m/([\w]+:\/\/[\w-?&;#~=\.\/]+[\w])/; # Finds the HTML line
$test = $1; # Assigns the temp variable to the matched HTML line

$rec{$column} =~ s/([\w]+:\/\/[\w-?&;#~=\.\/]+[\w])/<A HREF=\"$test\" target=\"new\">$1<\/A>/g;
$rec{$column} =~ s/(mailto:[\w-?@&;#~=\.\/]+[\w])/<A HREF=\"$1\" target=\"new\">$1<\/A>/gi;
}