#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $number = '343243-23423*234-2342-3';
my @separators = $number =~ /([^0-9])/g;
my %uniq;
undef @uniq{@separators};
say 1 == keys %uniq ? 'Same' : 'Different';