if ($foo =~ /^dis_isa_pattern$/o) { # stuff }