read DATA, $str, -s DATA;