#!perl
use strict;
my $text = 'foo
 
bar';

$text =~ s/\n/<br \/>/g;
print $text;