in reply to Grabbing anything between pipe delimiters

An excerpt from perldoc:
An example: $s1 = $s2 = "I am very very cold"; $s1 =~ s/ve.*y //; # I am cold $s2 =~ s/ve.*?y //; # I am very cold

perldoc -q regex
perldoc perlre