#!/bin/sh
perl -0ne 'print "$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11" if /DIEAREA.*\s(\d+)\s(\d+).*\s(\d+)\s(\d+)\s.*\n[\S\s]*ROW_0 unit\s*(\d+)\s*(\d+)[\S\s]*ROW_\d+ unit\s*(\d+)\s*(\d+).*DO (\d+).*STEP (\d+).*\n/' $1