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