$code = `cat Foo.pm`;$code =~ s/\n1;//s; eval $code;