http://qs321.pair.com?node_id=11128774

salva has asked for the wisdom of the Perl Monks concerning the following question:

Well, at least, it has surprised me:
my $out = "hello\nfoo" =~ s/o*$/O/gmr; say $out