in reply to quantifiers with digits (\d{1|2} doesn't do what I expect)

How about this as an alternative?

if ($file =~ /^KL\d\d?_/) {...}

In Section Seekers of Perl Wisdom