Or the other way, you have '//' and the glob is starting from root?  Notice that the next alternative does $filename =~ s/\/$//;.

  p