Select Code to Download

   foo a b cd efg bar

   my @matches;
   if ($data =~ m/foo (.*) bar/) { # everything between foo and bar go
+es into $1
      @matches = split(' ', $1); # split on whitespace
   }