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";
  		
}

}