in reply to Re^2: Stopping empty files from been pushed into an array.
in thread Stopping empty files from been pushed into an array.

Why, it is of course: 

sub len{
        return do { local(@ARGV, $/) = $_[0]; <> } =~ y===c; 
}

[download]

:P

Disclaimer: use -s $filename. This code is ineficient and ment as a timtoady

In Section Seekers of Perl Wisdom