[ILUG] Perl Regex Help Needed

[Gavin McCullagh]

On Sun, 11 Sep 2005, Rory Winston wrote:

> Consider the following - I have a single concatenated file of questions 
> and answers. It looks something like this:

I think this should probably do it for you.  You need to pass the filename
to the script.

#!/usr/bin/perl
$/="\n\n";

while(<>) {
  if( m/([AQ])\s*([0-9]+)\)(.*)/sm ) {
    if($1 eq 'Q') {
      print "Question #$2 was: $3\n";
    }
    elsif($1 eq 'A') {
      print "Answer #$2 was: $3\n";
    }
  }
}