my $collection_times = "Mo-Fr 10:00; Sa 10:00; Su 11:00;";

CreateCollectionTimeTable();

sub CreateCollectionTimeTable
{

my(@days) = split( /;/, $collection_times );

foreach $day (@days){
                $_ = $day;
                s/^\s+//;                       # fuehrende Leerzeichen entfernen
                s/\s+$//;                       # nachfolgende Leerzeichen entfernen
        my($dayname,$daytime) = split( / /, $_ );

                print "|".$dayname."| - |".$daytime."|\n";
                
}

}