perl -e'/ / / / goto TPC'