perl -e'#line 5' -egoto+TPC 123456789_123456789_1234567