$test = sprintf("%o", ord $_);
if ($test eq "14") {
  ...
}