suno has asked for the wisdom of the Perl Monks concerning the following question:


I have a powerbuilder debug file which is in unicode. I tried encoding it and did some processing. the code is as below:

#!/usr/bin/perl my $input=$ARGV[0]; open(INFILE,'<:encoding(utf-16LE)',$input) or die("Not able to open th +e input file $input $!"); while(<INFILE>) { my $currentline=$_; next if($currentline=~/^\s+(CLOSE|OPEN)\s+/i); print $currentline; }

Next is, I need to decode the modified encoded source file. I tried the below code for decoding but still got empty lines.

open my $fh, '>:encoding(utf-16LE)', $currentline; open my $fh, '<:encoding(utf-16LE)', $menufile;
I am finding it a bit tough to understand and get a solution for decoding.Please help me in this. Thanks in advance.