my $v = "D7*D-48*6";
my $r = $v;
$r =~ s/-/-?/g; # Dash optional
$r =~ s/\*/./g; # * any character

("D7RD" =~ m/$r/) ? ....