Select Code to Download

use Data::Dumper;
if (my @r = "foo bar baz" =~ /(foo) (bar) (baz)/)
...
          'bar',
          'baz'
        ];

sub get_caps ()
{
...
          'bar',
          'baz'
        ];