for ($text =~ /<tr>(.*?)<\/tr>/gmsi){
  $selected=$1;
  if ($selected =~ /ISTF/is) {
    $selected_text = $1 ;
    ## Your code here
  }
}