Help for this page
my $x = '2D6-324'; print(split '-',$x)," complete\n";
my $x = '2D6-324'; print split('-', $x)," complete\n"; ... __output__ 2D6324 complete