@parsedfile = split(/\<TABLE/,$file);