#!/usr//bin/perl -wl
use strict;
use charnames ':full';

my $string = "foo \N{COPYRIGHT SIGN} bar";

print "matched" if $string =~ /\N{COPYRIGHT SIGN}/;