String Perl

use Unicode::String;
my $string = "This is a test\n";
my $u = Unicode::String->new($string);