this thread is old, I know, but I did the test and $foo is not modified, here the code i wrote

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

print "$s2 \n$s\n";
[download]

__OUTPUT__
hi
hi, how are you?
[download]

hop this helps :)