$_ = <DATA>;
    s/^#.*//gm;           # <b>updated</b>
    my @lines = split /;\n+/;