Contents of a Unicode (UTF-8) text file named DriedMangos.txt:

Perl script to demonstrate matching Unicode grapheme clusters using the regular expression backslash sequence \X:

#!perl

use strict;
use warnings;
use autodie;

open my $input_fh,  '<:encoding(UTF-8)', 'DriedMangos.txt';
open my $output_fh, '>:encoding(UTF-8)', 'Graphemes.txt';

while (my $line = <$input_fh>) {
    chomp $line;

    while ($line =~ m/(\X)/g) {
        print $output_fh "[$1]";
    }

    print $output_fh "\n";
}

close $input_fh;
close $output_fh;
[download]

Contents of the output text file named Graphemes.txt:

(See http://ameblo.jp/gucciman-ikkob/entry-10317490092.html for an explanation of the peculiar last line of the file named DriedMangos.txt.)