Select Code to Download

#!/usr/bin/perl
use warnings;
...
my ($bfm) = $root->findnodes('//breakfast_menu');
say for $bfm->findnodes('(following-sibling::* | preceding-sibling::*)
+');