binmode F, ":raw";

##</code><code>##

open my $f, '<', 'text.txt'
   or die "can't open file 'text.txt' for reading: $!";
binmode $f, ':raw';
while (<$f>) {
   print "Result: $1" if /particularly(.*)/;
}