print FILE (split /:/ => $_) [-1], "\n";