Select Code to Download

#!/usr/bin/perl
use warnings; 
...
print $resultfile '<?xml version="1.0" encoding="UTF-8"?>'."\n";
print $resultfile $tree->as_XML();
close($resultfile);

>perl xml.pl
Bareword found where operator expected at xml.pl line 98, near "%%gi"
...
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.

$mycontainerless=~%</container>%%gi;