Answer Posted / guest

# Reverse a string and check if it is palindrome

my $str = "A man, a plan, a cat, a canal – Panama!"; # a
multiple word string

@arr = split //, $str;
my $revstr;
for (0..$#arr) {
$revstr .= join (//, pop(@arr));
}
print "reversed string: $revstr\n";

my $mod_str = $str;
$mod_str =~ (s/[\W]//g);
$revstr =~ (s/[\W]//g);

print "$str is a palindrome \n" if ( lc($mod_str) eq lc
($revstr) );

How can you create anonymous subroutines?

962

---

Which operator in perl is used for the concatenation of two strings?

1042

---

“Perl regular expressions match the longest string possible”. What is the name of this match?

983

---

What are some of the key features of objects in perl?

988

---

How does a “grep” function perform?

1097

---

How do you turn on the perl warnings?

964

---

What are perl variables?

981

---

What is Perl?

1053

---

What are the two ways to get private values inside a subroutine?

968

---

Explain grooving and shortening of arrays?

1126

---

what is Chop & Chomp function does?

1038

---

How to do comment in perl?

1004

---

What is epoch time in perl?

982

---

What can be done for efficient parameter passing in perl?

947

---

Explain string comparison operators in perl.

1053

---