Select Code to Download

my $fields_string = join "|", @$rowref;
my $line = sasify($fields_string);

$in =~ tr/^\| *//d;