in reply to Replace In a Single Line
my $var = "GoodMan";
my $result = join "", (sprintf "%s", $var) =~ m/(.*?) oo (.*)/xms;
A ridiculous question deserves a ridiculous answer.
1. Keep it simple
2. Just remember to pull out 3 in the morning
3. A good puzzle will wake me up
Many. I like to torture myself
0. Socks just get in the way
Results (387 votes). Check out past polls.