~/perl/monks$ ./test_tilde.pl 
This is a test
of a replacement 
string, really (example.com) 
and truly.
This is a test
of a replacement 
string, really (12.23.56.78/~example) 
and truly.