#!/usr/local/bin/perl -Tw

use strict;

my $initial = "there once was a fish. Its feet were small";
$_ = $initial;
my $post = func();
my $post2 = func();
print "$post\n";

sub func {
    s/there/There/;
    return $_;
}