#!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;