Select Code to Download

$ perl -wle 'my $str = "a, b,"; my ($first) = $str =~ /(.*),/; print $
+first'
a, b