Wagenreihung: Correctly format powercar numbers

%         if (length($uic_id) != 12) {

            <span class="uicunknown"><%= $uic_id %></span>

%         }

%         elsif ($wr->train_type eq 'ICE') {

%         elsif (substr($uic_id, 0, 2) >= 90) {

            <span class="uicexchange"><%= substr($uic_id, 0, 2) %></span><span class="uiccountry"><%= substr($uic_id, 2, 2) %></span><span class="uic5"><%= substr($uic_id, 4, 1) %></span><span class="uictype"><%= substr($uic_id, 5, 3) %></span><span class="uicno"><%= substr($uic_id, 8, 3) %></span><span class="uiccheck"><%= substr($uic_id, 11) %></span>

%         }

%         else {