sub readthingy {
    local @ARGV = @_;
    local $/ = ', ';
    return <>; # ref to array might be faster
}
[download]

This is not equivalent to the original. Ask yourself, "what happens to newlines?"

-sauoq
"My two cents aren't worth a dime.";