my $input_string = '';
    while (@lines) {
        my $line = shift @lines;
        chomp $line;
        if ($line) {
            my @parts = split(/#/,$line);
            $input_string .= $parts[0];
        }
    }