#!/usr/bin/perl
#

$string = "good food";
$string =~ s/o*/e/;
print "1 $string\n";

$string = "good food";
$string =~ s/go*/ge/;
print "2 $string\n";

$string = "good food";
$string =~ s/go*?/ge/;
print "2.1 $string\n";

$string = "g";
$string =~ s/go*/ge/;
print "3 $string\n";

$string = "giod food";
$string =~ s/go*/ge/;
print "4 $string\n";

$string = "good food";
$string =~ s/o*/e/g;
print "5 $string\n";

$string = "good food";
$string =~ s/.*/e/g;
print "6 $string\n";

$string = "good food";
$string =~ s/.*/e/;
print "7 $string\n";
