undef $/;
my $text = <$fh>;

##</code><code>##

while(<$fh>){
   $text .= <$fh>;
}

##</code><code>##

open FL, "<"."file.txt";
binmode(FL, ":utf8");