use Modern::Perl;

say 'Empty file' if 1 == scalar grep {/[^\s,]/} <DATA>;

__DATA__
header1, header2, header3


,,,,,,,
 , , , , , ,