sub b{
    my %s;
    keys %s = shift; 
    undef $s{1};
    substr %s, 1+index( %s,'/' );
}