while (<ERROR>) {
  $message{host} = (split)[1], next if /^el_nodeid/;
  $message{drive} = (split)[1], next if /^el_resource/;
  $message{detail} = (split)[1], next if /^el_detail_data/;
}