my $count = $string =~ tr/@//; 

##</code><code>##

$CHARS = '(<|>|\[|\])';

##</code><code>##

$CHARS = qr/([][<>])/;

##</code><code>##

      $id = $1 if (/msgid=([^:]+):/);

      $id =~ s/(^<|>$)//g;

##</code><code>##

($id) = /msgid=<([^>]+)/;

##</code><code>##

      if (!$id || $id =~ /^(\s+|)$/) {
         $no_id++;
         next;
      }

##</code><code>##

  (@data) = grep(!/received from internet:/, @in);
   (@data) = grep(!/Error-Handler/, @data)
           if ( grep(/Error-Handler/, @data) && $data[1] );

##</code><code>##

if ($data[1]) {    # Do you really mean that, by the way?
    my (@t1,@t2); 
    @t1 = map { 
        if (/Error-Handler/) { 
            $_ 
        } else { 
            !/received from internet:/ and push @t2, $_; 
            (); 
        }
    } @data; 
    @data = @t2 if @t1; 
}

##</code><code>##

      if ($line[0] =~ /( |-)([a-zA-Z]+)$/) {

##</code><code>##

if ($line[0] =~ /[ -](a-zA-Z]+)$/) {