for $filename (@filelist) {
  ...

##</code><code>##

for $filename (@filelist) {
 # PHB doesn't want B files blurked
 next if $filename =~ /^b/i;
...