#!/usr/bin/perl

use strict;
use warnings;

my $hobbit="Emulex LPe16000";
if ($hobbit =~ m/^Emulex \K\w+$/) {
    print $&;
}