use File::Find::Rule;

my @files = find(
  file =>
  grep => qr/%[fjb]\1\b/,
  in   => '/disk1/disk2'
);