my $foo = "This is a test.";
my $flag = 0;
print "$flag\t$foo\n";
$flag = ($foo =~ s/a/the/);
print "$flag\t$foo\n";