To remove all new lines within $line:
$line =~ tr/\n//d;

$line =~ s/^\n//; #remove leading one
$line =~ s/\n$//; #remove last one or better use chomp($line)