Help for this page
if ($line =~ /^%(.{1,100})$/){ ... $outfile = "outfile['$name'].txt"; open (OUTFILE, "+>>$outfile");