try that
Code:
$HTML = "";
open (CLEANLINKSFILE, "$WorkingDir/InputLinks.txt");
foreach $CleanedLinksGrab (<CLEANLINKSFILE>)
{
chomp $CleanedLinksGrab;
$CleanedLinks = "$CleanedLinksGrab";
$HTML .= "<a href=\"$CleanedLinks\">$CleanedLinks</a><br>\n";
}
close (CLEANLINKSFILE);
open (XENULINKSFILE, ">>$WorkingDir/OutputLinks.html");
print XENULINKSFILE $HTML;
close (XENULINKSFILE);