perl 利用 regular expression and pack/unpack 比對 特殊字元▲

use Spreadsheet::ParseExcel;
 ...
my $parser = Spreadsheet::ParseExcel->new();
...

 excel 裡面有一個特殊字元 ▲
經過
perl
$char = unpack("H*","▲");
print $char;
__END__
解析，其16進位為 e296b2
所以用以下code判斷

353              my $tmp = ($sheet->get_cell($i,0))->value();
354              my $tmp2 = unpack("H*",$tmp) if $tmp;
355              $tc_imf09 = "危險品" if ($tmp2 =~ /e296b2/);