perl -n0e 's/[^\n]+(?:CORE|BEGIN|re::|strict::|warnings::|Exporter::|XSLoader::|bytes::)[^\n]+\n//g; s/(?:^|\n)subgraph cluster_(?:warnings|strict|vars|Exporter|overload|XSLoader|bytes)\w*\s*\{.*?\}//gs; print' <file>.dot > <file>.out.dot