my ($body) = $line =~ /^body: \n (.*) \n attachment/xsi;