use strict; use warnings; my @tests = ( 'sip:userid@example.com', 'sip::userid@example status::code', '::', '::a::', ':::bad_example::', ); print /^([^:]|(?