foreach $file (@ARGV) { if ($file =~ /\./) { $file =~ /((\w|\\)*)\.\w+/; $backup = $1 . ".bak"; } else { $backup = $file . ".bak"; } system ("copy $file $backup"); open (BACKUP, $backup) || die "Can't open $file"; open (FILE, ">" . $file) || die "Can't open $file"; while () { s/colomon\@umich\.edu/colomon\@ralf.org/g; s{HREF="sol\.html"} {HREF="../sol.html"}g; # s///g; print FILE $_; } }