~/perl/monks$ cat test_tilde.pl #!/usr/bin/perl use warnings; use strict; my $test = "This is a test of a replacement string, really (example.com) and truly."; print $test, "\n"; $test =~ s|example\.com|12\.23\.56\.78\/\~example|g; print $test, "\n";