use warnings;
use strict;

my @account = qw(34765-22333-333489-99867-22340-23456-3229 XLM8876 AMP7765 WQP22349);

my @chk_acc = map {split('-')} @account;

foreach my $checked (@chk_acc) 
{
    # chomp();
    if ($checked =~ /^(\w{3})(\d{4,7})/ig)
    {
        # it should print the accounts starting with letters here
        print "*$checked*<br>";
    }
    else {
        # else the rest of the accounts not starting with any letters
        print"-$checked-<br>";
    }
               
}