When you see 
while (<>)
{
  #  Do something here
}

[download]
in someone's code, that means a loop that is reading each line of the intput stream. (The command line equivalent, as has already been pointed out, is perl -n.) If all you want to do is echo that, then you'd add a print statement to output the current line (when used without arguments, the print statement conveniently uses $_, which holds the current element being examined .. in this case, it's the input line just read in). 
while (<>)
{
  print;
}

[download]
This is pretty useless, as it just dumps out the input. To actually make a change (like your Ohio change) add an s operation. 
while (<>)
{
  s/oh/Ohio/g;
  print;
}

[download]
Now, this may not work the way you expect it to. Alcohol, cohabitate, cohesion, microhmmeter and our fuzzy friend pooh will all match with 'oh'. But the rest (heh heh) is left as an exercise for the student.

--t. alex

"Of course, you realize that this means war." -- Bugs Bunny.

In reply to Re: Win32: sed -Perl by talexb
in thread Win32: sed -Perl by Anonymous Monk

Title:
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, details, 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, summary, 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.