use strict;
{
    local $/ = "\r\n";
    open(FOO, "somefile.txt") or die("open died - $!");
    chomp( my @data = <FOO> );

    local $\ = "<br>";
    print for @data;
}