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