$pattern='(\<[^\>]{1,300}\>)';
        		while ($target_data=~m/$pattern/gi)
                  {
				   	  	$m=$1;                                 
            			$space='';
                   		$space=' ' x length($m);			
           				$target_data=~s/$pattern/$space/i;
						print $m."\n";
                   }