c:\@Work\Perl\monks>perl -wMstrict -le
"my $file = qq{\x0f\xf0\xff};
 my $count =()= $file =~ /\xff/g;
 print $count;
"
1