--why the code still not working

The short answer to your question is that you are trying to do way too much in a single regular expression.

Try breaking down the problem into smaller steps. First get a program that does what you want with the lines beginning with AU. When you get that right, then and only then expand the program to also replace ids.

Even doing the right thing with lines that begin with AU can be broken down into single steps. You don't need to select the lines beginning with 'AU' and do the substitutions and insert "Written by" all in one go. Instead break it down into steps:

  1. Use if ($line =~ /^AU:/) {...} to select the lines beginning with 'AU' for special processing.
  2. Find the place to insert "Written by". Do this as a single step on its lonesome.
  3. Capitalize each word using a simple regular expression, something like this: s/\s(\w+)/ \u$1/g

Here is a part of your problem broken down into smaller steps. You might find substr especially helpful. It can be used on the left side to replace parts of a string.

my $iLength = length('AU: Written by:'); # read lines one at a line instead of slurping into an array # this is more memory friendly while (my $line = <INPUT>) { # single out lines beginning with 'AU' for special processing if ($line =~ /^AU:/) { # insert "Written by" # Note: substr on the left means # replace the zero-length string at position 3 # in other words: insert something at position 3 substr($line, 3,0) = ' Written by:'; # capitalize the first letter of every word # Note: substr on the left means # make substitutions in the part of the string after # "AU: written by" substr($line, $iLength) =~ s/\s(\w+)/ \u$1/g; } print $line; }

In reply to Re: Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word by ELISHEVA
in thread Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word by allison

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.