while (my $file = <DATA>)
{
    chomp $file;
    my @old = split /-/, $file;
    my @new;

    for my $old_field (@old)
    {
        # analyse   $old_field
        # construct $new_field
        push @new,  $new_field;
    }

    print join('-', @new), "\n";
}