my ($data) = $fileinfo =~ /^(.*?)\*{4}/s;