my $emc_device = substr($inq, 2, 3);

##</code><code>##

my ($emc_device) = $inq =~ /^..(...)/;