my $filename = "one/two/three/four/five/six.a";
    my $name = (split m{/} => $filename) [-1];