#!/usr/bin/perl

use warnings;
use strict;
my $zeile = "text;txt            ;text      ;16              ;32              ;23              ;text  ";

my @aiZeile = split(/;/, $zeile);

foreach (@aiZeile) {
   s%^\s+%%g;
   s%\s+$%%g;
} # foreach

print join(";", @aiZeile);