my $rule = Path::Iterator::Rule->new;
if ($id =~ /^([0-9A-F]{2})/) {
  my $int = $1;
  $rule->and( sub { m#/INT $int# } );
}

##</code><code>##

my $rule = Path::Iterator::Rule->new;
if ($id =~ /^([0-9A-F]{2})/) {
  my $int = $1;
  $rule->and( sub { m#/INT (??{ "$int" })# } );
}