if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.*?)</file>}{}s ) {
			( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );

##</code><code>##

if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.{$2})</file>}{}s ) {
			( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );

##</code><code>##

if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.*)</file>}{}s ) {
			( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );