Select Code to Download

my @fields = $string =~ m/([^|]*)\|?/g;
$string && $string !~ /\|$/ && pop @fields;

my @fields = split(/\|/,$string,$string =~ tr/|/|/ + 1);

my $fieldcount = $string =~ tr/|/|/ + 1;
my @fields     = split(/\|/, $string, $fieldcount);