Program to reverse string in perl?

To reverse a string in Perl, you can use the reverse function along with split to break the string into individual characters, and then join them back together. Here’s a simple example:

<code class="language-perl">my $string = "Hello, World!";
my $reversed = join('', reverse split('', $string)); print $reversed;  # Output: !dlroW ,olleH
</code>

This code splits the string into characters, reverses the list of characters, and then joins them back into a single string.