cat try.txt | perl -lane '$F[2] =~ s/:000//g; $F[2] =~ s/:/ -> /g; $F[2] .= ";"; print $F[2] if $F[2] =~ /->/' >> try.dot