#!/audioint LOOP: while(<*>){ chomp; if( /.pl|.html/ ){ print "skipping $_\n"; next LOOP; } ($ramfile = $_) =~ s/.ra$/.ram/; $link = "https://igorkhristitch.tripod.com/audioint$_"; print "creating $ramfile\n"; open(RAM, ">$ramfile"); print RAM "$link\n"; close RAM; }