while ($dir_listing[0] =~ /^\.+$/)
{
  shift @{$dir_listing};
}