$f = $ARGV[0];
open(F, $f);
while (<F>) {
    s/
/\n/g;
    print;
}
