17, [0-9]+[; \)\}]+
17,$[A-Za-z0-9_:\[\]\{\}]+
17,%[A-Za-z0-9_:\{\}]+
19,&[A-Za-z0-9:_]+
145,;
17,@[A-Za-z0-9_:\[\]]+
113,^BEGIN
113,^END
53,^package
225,die
161,else
161,elsif
225,exit
161,for
161,foreach
161,if
225,next
37,require
225,return
177,sub [A-Za-z_-]+
161,unless
37,use
161,while