#!/usr/bin/perl -w
use strict;

my $str = "I like to eat pizza. Every friday, I do.";
$str =~ s/\./_/g;

print $str;


Output:

C:\>perl pg61.pl
I like to eat pizza_ Every friday, I do_