There is no previous '(' to match a ')' on line 237
237:         ( $id, $port, $description ) = m#^\s*(\w+-\w+)\s+(\w+/\d ...
                                                          ^

There is no previous '(' to match a ')' on line 237
237: ... n ) = m#^\s*(\w+-\w+)\s+(\w+/\d+/\d+)\s+(.*)$#;
                                             ^

268:         ( $id, $port, $description ) = m#^\s*(\w+-\w+)\s+(\w+/\d ...
                    ^
found Scalar where operator expected

There is no previous '(' to match a ')' on line 268
268:         ( $id, $port, $description ) = m#^\s*(\w+-\w+)\s+(\w+/\d ...
                                        ^
398:    The logfile vipatch.cgi.LOG may contain useful information