Select Code to Download

<div class='PlayVideo'></div>
        A8A
        <div class='RadioButtonClipStyle'>

foreach $l(@lines)  {#traversing the file 
  if($line=~ /<div class=\'PlayVideo\'><\/div>\n(.*?)/) {
             $kb_layout_id=$&;     print "$kb_layout_id\n";
         }
}