<div>
$word=&quot;expert&quot;; 
while( &lt;DATA&gt; ){ 
&nbsp; &nbsp;s/$/ $word/ unless /$word/; 
&nbsp; &nbsp;print; 
} 
__DATA__ 
shopping best store 
shoppingrandomstore 
expertshopping 
expert shopping 

</div>

$word="expert";
while( <DATA> ){
   s/$/ $word/ unless /$word/;
   print;
}
__DATA__
shopping best store
shoppingrandomstore
expertshopping
expert shopping

<div>
<div class="content wysiwyg-content">
Hello, 
 
I'm looking for a way to append a word at the end of each record which does not contain a specific word. 
 
example: 
 
shopping best store 
shoppingrandomstore 
expertshopping 
expert shopping 
 
ouput: Append &quot;expert&quot; 
 
 
shopping best store expert 
shoppingrandomstore expert 
expertshopping 
expert shopping 
 
 
I'm also looking for a way to specify where to append a word ( beginning or end) 
 
Thanks
</div>
</div>

Hello,

I'm looking for a way to append a word at the end of each record which does not contain a specific word.

example:

shopping best store
shoppingrandomstore
expertshopping
expert shopping

ouput: Append "expert"


shopping best store expert
shoppingrandomstore expert
expertshopping
expert shopping


I'm also looking for a way to specify where to append a word ( beginning or end) 

Thanks

Appending Words

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.