.
.
.
use Unicode::String;

my $utf_string = [some string which is UTF8];
my $encased_string = Unicode::String->new($utf_string);
my $data_for_database = $encased_string->hex();

# For better space savings...
$data_for_database =~ s/U\+//g;