View difference between Paste ID: VhGWNxC5 and JkgC4SZ2

 #!/usr/bin/perl -w
 
 use strict;
 use utf8;
 
 my $test_string = '£100 $cash i am a ☃ you are a ☹';
 print "First Regex\n";
 while ($test_string =~ m/([\$£]+)/g) {
     my $res = $1;
     if (utf8::is_utf8($res)) {
         print "Unicode encoding to utf8\n";
         utf8::encode($res);
     }
     print "match: $res\n";
 }
 
 
 
 print "Second Regex\n";
 while ($test_string =~ m/(\p{Symbol})/g) {
     my $res = $1;
     if (utf8::is_utf8($res)) {
         print "Unicode encoding to utf8\n";
         utf8::encode($res);
     }
     print "match: $res\n";
 }
 
-# now encode test_string as UTF8
+
     print "NOW TRY ENCODED UTF8 DATA\n";
     utf8::encode($test_string);
     print "ENCODED: $test_string\n";
 }
 
 
 
 print "Third Regex Notice that we loose the snowman and frowny face \n";
 while ($test_string =~ m/([\$£]+)/g) {
     my $res = $1;
     if (utf8::is_utf8($res)) {
         print "Unicode encoding to utf8\n";
         utf8::encode($res);
     }
     print "match: $res\n";
 }
 print "Fourth Regex\n";
 while ($test_string =~ m/(\p{Symbol})/g) {
     my $res = $1;
     if (utf8::is_utf8($res)) {
         print "Unicode encoding to utf8\n";
         utf8::encode($res);
     }
     print "match: $res\n";
 }