Perl regex

I have a two line pattern I would like to match and include 3 groupings.

  59 REPT: EVDO: RNC 24 CP FAILURE SUMMARY SESSION RELEASE
     RAN AUTH FAILURE PPP, ERROR CODE 51001

For final outcome I would like:

$1 = 24
$2 = CP FAILURE SUMMARY SESSION RELEASE RAN AUTH FAILURE PPP
$3 = ERROR CODE 51001


while ( my $line = <$FIN> ) {
  if ( $line =~ /EVDO:\s*RNC\s*(\d+)(.*\n{1}.*),(ERROR CODE\s*\d+)/m) {
    print $line,"\n";
  } else {
    print "No Match\n";
  }
}

I haven't had much luck matching the second line.

Any help is greatly appreciated.

Thanks,

Chris

• Perl regex by Chris Stinemetz
• Re: Perl regex by Ken Slater
• Re: Perl regex by Shawn H Corey