Shell Programming and Scripting

$sent="Protein modeling studies reveal that the RG-rich region is part of a three to four strand antiparallel beta-sheet, which in other RNA binding protein functions as a platform
for nucleic acid interactions.

Heterogeneous nuclear ribonucleoparticle (hnRNP) proteins form a family of RNA binding proteins (RBPs) that coat nascent pre-mRNAs.

Finally, we have found that Pumilio2, a member of the PUF family of RNA-binding proteins, is highly concentrated at the vertebrate neuromuscular junction.

PUF proteins comprise a highly conserved family of sequence-specific RNA-binding protein that regulate target mRNAs.";

my $regex = $word;

$regex =~ s/\s+/[- \\s]/g;

# print all lines matching $regex
while ($sent =~ m/(.*$regex.*)/go) { print "$1\n";

$sent=~s/(\b$regex\b)/<span style="background-color:#E1FF77">$1<\/span>/img

print $sent;

 }

$regex =~ s/$/s?/ unless $regex =~ /[xzcs]$/;