eudora-mac/tmp/tmp0426

if ($doMe==1) {if (m/\[/) {s/\[.*\]\s*//;s/\t/\t[624:47969] /;}else{s/\t/\t[624:47969] /};$doMe=2;} elsif ($doMe==0) {$doMe = m/^Description:/;}