die "Either : already in string on the length is invalid\n" if $string =~ /:/ || length($string)!=16; print "work on that string" #### die "..." if $string =~ /:|.{17}/;