#not tested, YMMV
for $key (keys %options)
{
    if ($key =~ s/^#//)
    {
        if (/$key/)
        {
            print "Match: $1\n";
        }
    }
    else
    }
        if ($_ eq $key)
        {
            print "Equals: $1\n";
        }
    }
}