$_ = "foo::bar"; my ($head) = /^.*?::/; my ($tail) = /::.*/;