use File::Map q(map_file);
map_file $_, shift, '<';
print tr/\n// + /[^\n]\z/;