my $value '23DX-245C';
if ($value =~ /\d{2}\s{2}-\d{2}\s{1}/) {
    print "Matched\n";
    }