my $foo=(split /:/, $_)[1];
(my $foo)=/[^:]*:([^:]*):[^:]*/;