Select Code to Download

my $line = q{one <two>};
$line =~ /
...
/x;

print $1, $2;

one two

my $line = q{one <four>};

while ($line =~ /pattern/g){
  # do something with $1 and $2
}

one [link|file.html] two [email|me@home.com] three [not a link]

  while (
    $line =~ 
...
      # more stuff
    }
  }