Select Code to Download

#!/usr/bin/perl
use strict;
...
@lines = map {scalar reverse} @lines;
print "\nUsing default file I/O\n";
print "$_\n" for @lines;

Using utf8
321ö
...
321¶Ã
654¥Ã
987¥Ã