my @exi=split (/\n/,$excerpt);
    ...
 foreach my $v(@exi){
    if ($v=~ /$q/){
        $report .= qq|
                  <br />
                      $v 
                  <br />|;