use strict;
use warnings;

my $fn = "this 'is' a text file.txt";

my @a = stat $fn;

print "$_\n" for @a;