Select Code to Download

<data>
  <r>
...
     <something>else</something>
  </r>
</data>

    while ($html =~ m/<(\/?r)>/g) { 
        $r_pos = pos($html) if $1 eq 'r'; 
...
    $handle_data->(\%data);

}