Select Code to Download

use strict;

my $line
...
    = split /[- _]/, $line;

print "First: $first\nSecond: $second\nThird: $third\n";

First: rs5443
Second: 61902
Third: 291008