Select Code to Download

my $line = 'marker <this> <that> <other>';
my $rex = qr/(?:^marker\s|\G)<(.*?)>(?: |$)/g;
my @matches = ($line =~ $rex);

my @lines = (
  'notmarker <blah> <foo> <bar>',
...
    print join(', ', @matches)."\n";
    }
  }