Help for this page

Select Code to Download

Select or download this

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