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