my $s = "hi, how are you?";
my $s2 = ($s =~ s/,.*//gr);

print "$s2 \n$s\n";

##</code><code>##

__OUTPUT__
hi
hi, how are you?