$data = do { local $/; <DATA> };
#do{$data = $data . $_ } while (<DATA>); #gives a uninitialized value in concatenation