use warnings;
use strict;

# do many boring things

while(<*something*>) {
    system(qw(perl -pi -e), $program) == 0 or die;
}

# do many more boring things