if (my @lines = $t->cmd('export LS_COLORS=none; ls')) {
	foreach my $line (@lines) {
		$line =~ s/[\r\n]//g;
		$line =~ s/\[~\] # //g;
		$line =~ s/\x1B\[0m//g;
		$line =~ s/\x1B\[(\d+);(\d+)m//g;
		next if $line eq '';
		print "Zeile: '$line'\n";
	}
}