Perl
#1 105
#2 93
#3 61
#4 21
#5 19
#6 14
#7 13
#8 6
#9 4
#10 4
#11 3
#12 2
#13 2
#14 2
#15 2
#16 1
#17 1
#18 1