$row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
$row->[0] =~ s/ <BR>(.*)/"<br \/>" . capitalize($1)/eg;
$row->[1] = capitalize($row->[1]);
$row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
$row->[0] =~ s/ <BR>(.*)/"<br \/>" . capitalize($1)/eg;
$row->[1] = capitalize($row->[1]);