Select Code to Download

if ($line =~ /Entering UPAuthModule::authenticate/ .. /Sending Invalid
+ credential/ )

if ( ( $line =~ /Entering UPAuthModule::authenticate/ ) .. ( $line =~ 
+/Sending Invalid credential/ ) )

#!/usr/bin/perl
use strict;
...
      or warn;

}