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