Select Code to Download

while ( $indata =~ s{<file fiop="([^"]+)" length="(\d+)"/>(.*?)</file>
+}{}s )
{
...
    # there's something wrong with the posted data, so it's still
    # not suitable for XML parsing...
}