Select Code to Download

$ perl -e '$_="foo\n"; print "1=|$1|\n" if m/(fo.+?)$/s'
1=|foo|
...
$ perl -e '$_="foo\n"; print "1=|$1|\n" if m/(fo.+?)\z/s'
1=|foo
|

$ perl -e '$_="foo\nbar"; print "1=|$1|\n" if m/(fo.+?)$/s'
1=|foo
...
1=|foo
bar
|