Select Code to Download

my $string = '(<some word> | No Qualifier | <some word> | <some word>'
+;
my $start = index( $string, '|' );          # find first pipe position
my $end = index( $string, '|', $start+1 );  # find next pipe position

my $qualifier = substr( $string, $start, $end-$start+1 ); # extract

use IO::File;
use Text::CSV_XS;
...
    my $row = $csv->getline($io);  # read and parse line into an ARRAY
+ref
    print "Second field says: ", $row->[1], "\n";
}