chomp;
    $_ =~ s/fred/\n/i;
    $_ =~ s/wilma/Fred/i;
    $_ =~ s/\n/Wilma/;
    print;
    print "\n";