for ($test) {
s/\t/    /g;
s/\s\*/\*/g;
s/^([^\t]*)/sprintf('%-10s', $1)/e;
}