Re: Quick Perl Question

[Me]

> 1. I want to read in a text file and match any line that begins with
> three capital letters followed by a space.  i.e. "USD "

    while (<>) {

        /^[A-Z]{3} / and dostuff; # $_ contains line

    }

>
> 2. I need to ignore any blank lines, lines containing all "---", lines
> containing all "===".

    while (<>) {

        /^(\s|-|=)*$/ and next;
        /^[A-Z]{3} / and dostuff; # $_ contains line

    }