if (-s $file)  {
    my $size = (stat _)[7];
}

##</code><code>##

my $size = ( -s $file );

##</code><code>##

my ($mode,$uid,$size,$modtime) = (stat $file)[2,4,7,9];