foreach my $line (@lines)
{
    if (($line =~ m/  Disk (d+)(d+)(d+)/) || ($line =~ m/  Disk (d+)(d+)/) || ($line =~ m/  Disk (d+)/) && ($line =~ /^(?:(?!  Disk 0).)*$/))
    {
        print("heren");
    }
}
#if the line contains anything like "Disk 1","Disk 20", or "Disk 300" it will print "here" but if it is "Disk 0" it will not.