Select Code to Download

my $line = "oneX|twoX|threeX";
my @fields = split(/|/,$line);
print "$fields[1]\n";