my $x = '2D6-324';
print(split '-',$x)," complete\n";

##</code><code>##

my $x = '2D6-324';
print split('-', $x)," complete\n";

__output__

2D6324 complete