$ cat 1.ascii.pl 
#!/usr/bin/perl -w
use 5.011;
#use utf8;
use Devel::Peek;
my $string = 'G$