'digraph Perl {
 graph [ rankdir="LR" ]
 node [ color="green" shape="oval" ]
 edge [ color="grey" ]
 "foo"
 "bar"
 "baz"
 "bar" -> "bar" [ label="/b/" ]
 "bar" -> "baz" [ label="/c/" ]
 "bar" -> "foo" [ label="/a/" ]
 "baz" -> "baz" [ label="/./" ]
 "foo" -> "bar" [ label="/b/" ]
 "foo" -> "foo" [ label="/./" ]
}
'
