Select Code to Download

#!/usr/bin/perl

...
my $data = 'gi|12345678|ref|NP_001234.1|';
my @data = split /\|/, $data;
my $number = $data[1];

#!/usr/bin/perl

...

my $data = 'gi|12345678|ref|NP_001234.1|';
my $number = (split(/\|/, $data))[1];