perl -e "my $test = join ', ', ('A', 'B', 'C');$test =~ s/,(.+?)$/ and$1/; print $test;"