UNIX for Dummies Questions & Answers

>cat other
a|\xc2\xbo

>cat write.pl

#! /opt/third-party/bin/perl

open(FILE2, "< other") || die "Unable to open file other\n";
while ( chomp($content=<FILE2>) ) {
@split_arr = split(/\|/, $content);
}
close(FILE2);
                                                                                 
printf "%x", $split_arr[1];
                                                                                 
open(FILE1, "> output") || die "Unable to open file output\n";
print FILE1 "$split_arr[1]";
print FILE1 "\n";
close(FILE1);
                                                                                 
print "\n";


exit 0

printf "%x", $split_arr[1];

printf $split_arr[1];

\xc2\xbo

my $var_194176_n = "\xc2\xb0";
print $var;