echo 'digraph G { concentrate = true; ' > try.dot cat try.txt | perl -lane '$F[2] =~ s/:000//g; $F[2] =~ s/:/ -> /g; $F[2] .= ";"; print $F[2] if $F[2] =~ /->/' >> try.dot echo '}' >> try.dot dot -Tps -o try.ps try.dot #### 1 => 001:000:000 2 => 001:002:000 3 => 001:003:000 4 => 001:003:004 5 => 001:002:005