see if this perl snippet works for you..

print "how many times 3 occurs between 3 to 3333?n answer:n";

my @nums = (3..3333);
foreach  (@nums) {
 my @tmp_counter = ($_ =~ m/3/g);
 $final_count += eval($#tmp_counter+1);
}
print "final : $final_count n";

output :
how many times 3 occurs between 3 to 3333?
 answer:
final : 1336

sagar