>perl xml.pl
Bareword found where operator expected at xml.pl line 98, near "%%gi"
        (Missing operator before gi?)
Operator or semicolon missing before %gi at xml.pl line 98.
Ambiguous use of % resolved as operator % at xml.pl line 98.
syntax error at xml.pl line 98, near "%%gi"
Execution of xml.pl aborted due to compilation errors.