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