$ perl x.pl between bar and bow is ' baz '