Display the character name of farsi letters in a sentence

charname.pl

#!perl

use v5.12;
use strict;
use warnings;
use utf8;

use Unicode::UCD 'charinfo';

my $SENTENCE = '';

foreach (split(' ',$SENTENCE)){
    foreach (split('')){
        my $letter=charinfo(ord($_))->{'name'};
        $letter =~ s/^arabic letter( farsi)?\s*//i;
        print "|$letter";
    }
    print "\n";
    say '-' x 50;
}