#!/usr/bin/perl

use strict;
use warnings;

my @list = glob(".* *");

print $_, "\n" for (@list);