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