I think this is wrong:

                ($foo) = ($variable =~ /^(.*)$/g);
[download]

shouldn't you add an s switch to the regexp so that it would match multi-line strings?