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