perl.exe -e "while (<>) {s/^=\s*\d*\s= ?//; print;}"