wave dash

wavedash.pl

use strict;                                                            
use warnings;                                                          
use utf8;                                                              
use Encode;                                                            
                                                                       
# 波ダッシュ                                                           
my $wavedash = chr(hex "301c");                                        
print encode_utf8($wavedash) . "\n";                                   
# => "〜"                                                              
                                                                       
# 全角チルダ                                                           
my $tilde = chr(hex "FF5E");                                           
print encode_utf8($tilde) . "\n";                                      
# => "～"                                                              
                                                                       
$wavedash eq $tilde ? print "1\n" : print "0\n";                       
# => 0

wavedash.rb

# 波ダッシュ
wavedash = "301C".to_i(16).chr('UTF-8')
p wavedash
# => "〜"

# 全角チルダ
tilde = "FF5E".to_i(16).chr('UTF-8')
p tilde  
# => "～"

p wavedash == tilde
# => false