for ($text =~ /<tr>(.*?)<\/tr>/gmsi){
$selected_text=$1