The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
digraph G {
    node [shape=record];
    a [label = "<f0> foo | x | <f1> bar"];
    b [label = "a | { <f0> foo | x | <f1> bar } | b"];
    a:f0 -> b:f1 
}