$inq = '23D78000';
if( $inq =~ m/^[0-9]{2}([A-Z][0-9]{2})[0-9]+$/ ){
  $emc_device = $1;
}