while (<>)
{
 chomp;
 print "$_<BR>";    # (Optional: print "$_<BR>\n"; for readability)
};
[download]

Or....(Imagine your own file opening, etc. here..)

my @File=<INPUT>;
close INPUT;
chomp(@File)
{
 local $"="<BR>";   # (Optional: local $"="<BR>\n"; for readability)
 print "@File<BR>"; #(Optional: print "@File<BR>\n"; for readability)
};
[download]

probably faster than a regex, problem is I don't
know how/where you are gonna use it....So with
the information you gave... See above

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;