#!/usr/bin/pe
1. my $smiley = "\xE2\x98\xBA";
2. print $smiley . "\n"; 
3. _utf8_on($smiley);
4. print $smiley . "\n";