$inq = "23D78000";
($junk, $emc_device, $junk1) = ($inq =~ /(\w\w)(\w\w\w*$/);