Select Code to Download

my $data = <<STR;
BC001593 91 NPSL
...

my @nums = $data =~ /\s(\d+)\s/g;
print join(', ', @nums), $/;