$ perl -e '"bar foo baz foo quzxx" =~ /(.*)foo(.*?)$/; print $1; print "\n"; print $2; print "\n"'
bar foo baz 
 quzxx
$ perl -e '"bar foo baz foo quzxx" =~ /(.*)foo(.*)$/; print $1; print "\n"; print $2; print "\n"'
bar foo baz 
 quzxx