my $p1 = chr(10);	
my $q1 = "<BR>";	
$line =~ s/$p1/$q1/g;