Question

• Write a perl program
  • Use a while loop to get user input until the user enters "quit"
  • Use a regex to replace any occurrence of the word "python" with the word "perl" and print out the updated version
• Provide the perl program (.pl file) as well as a screenshot of the output (show at least one example with python being replaced)

Answer 1

Perl Program:

#!/usr/bin/perl
use warnings;
use strict;

# Declaring variable
my $txt;

# Prompting user
print("Enter some text, (Type quit to exit).\n");   
# Reading input from user
chomp($txt = <STDIN>);   

# Loop till user enters quit
while($txt ne "quit") {
# Changing to lower case
$txt = lc($txt);
# Printing to user
print("\nYou entered:$txt\n");
# Replacing string
my $modified = $txt =~ s/python/perl/r;
# Printing modified string
print("\nModified as:$modified\n");
# Prompting user
print("\n\nEnter some text, (Type quit to exit).\n");   
# Reading input from user
chomp($txt = <STDIN>);   
}

_____________________________________________________________________________________________________

Sample Run: