if ($line =~ /^body: (.*)^attachment:/mi) { $vars{body} = $1; }