Select Code to Download

my $str = 'xyzxyzxyz - Prod Cache Broker - 16100';
print "$1\n" if ($str =~ m/^(\S+)\s+?.+$/);