#!/usr/bin/perl -w
use strict;

my $s1 = "1\xe2\x80\x932\xe2\x80\x933";
my $s2 = "1-2-3";

print "$s1: not $s2, but a brilliant imitation!\n"
    unless $s1 eq $s2;