$directory =~ s<^/*> . ;