$^I = '.bak';

/^#/ or print while <>;