main();

sub main {


print "Text to be analyzed.\n";
print "Type a blank line when finished.\n\n";

while (<>) {
        /^$/&& last;
        $input.=$_}

        chomp($input);

        replace ();

        $input = "";

        again ();
}

sub replace {

        print "\nSearched for: ";
        $pattern = <>;
        chomp($pattern);

        print "\nReplace with: ";
        $replacement = <>;
        chomp($replacement);

        $input =~ s/$pattern/$replacement/ig;
}