$ perl -MData::Dump -we " open $fake, q{<}, \qq{a\nb\nc\n\n}; for(<$fake>){ dd($_); }"
"a\n"
"b\n"
"c\n"
"\n"