Select Code to Download

Select or download this
```
my $count = $string =~ tr/@//;
```
Select or download this
```
$CHARS = '(<|>|\[|\])';
```
Select or download this
```
$CHARS = qr/([][<>])/;
```

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

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

Select or download this
```
($id) = /msgid=<([^>]+)/;
```

Select or download this

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

Select or download this

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

Select or download this

if ($data[1]) {    # Do you really mean that, by the way?
    my (@t1,@t2); 
...
    } @data; 
    @data = @t2 if @t1; 
}

Select or download this

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

Select or download this
```
if ($line[0] =~ /[ -](a-zA-Z]+)$/) {
```