my $ls = $sftp->ls( '.', wanted => qr/$datestring/)  or die "unable to retrieve directory: ".$sftp->error;

my $file = "$_->{filename}\n" for (@$ls);

print $file