#!/usr/bin/perl -w my $file = shift; my $content = ""; open (FILE, $file) || die "Can't open $file: $!\n"; while () { s/\/product\/cmiss\/cvs/taus007\@cvs\.bioeng\.auckland\.ac\.nz\:\/cvs\/cmiss/g; $content .= "$_"; } close(FILE); open (FILE, ">$file") || die "Can't open $file: $!\n"; print FILE $content; close(FILE);