in reply to Match and extract three characters from the middle of a string

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

[download]
which is the faster equivalent of 
my ($emc_device) = $inq =~ /^..(...)/;

[download]

In Section Seekers of Perl Wisdom