if ($line =~ /Entering UPAuthModule::authenticate/ .. /Sending Invalid credential/)
    {
        while ($line = <$log>)
        {

##</code><code>##

    if ($line =~ /Entering UPAuthModule::authenticate/
            ..
        /Sending Invalid credential/)
    {
        while ($line = <$log>)
        {