12:51 >perl -wE "my $s = qq[Hello world.  \n]; $s =~ s/^.*(world).*$/monks/; say qq[|$s|];"
|monks
|

12:51 >perl -wE "my $s = qq[Hello world.  \n]; $s =~ s/^.*(world).*$/monks/s; say qq[|$s|];"
|monks|

12:51 >