Select Code to Download

  my ( $code ) = ( $line =~ /code="([^"]+)"/ );

  <!-- watch out for greedy matching -->
  <tag code="blah" attr="nothing">
...
  <!-- finally, make sure you can handle multiple-line tags -->
  <tag foo="bar"
       code="nothing">