if ($str =~ /nbk[A-z0-9]{4}/ or /nbd[A-z0-9]{4}/ or /root/){

##</code><code>##

     if ($str =~ /nbk[A-z0-9]{4}/ or $_ =~ /nbd[A-z0-9]{4}/ or $_ =~ /root/){

##</code><code>##

     if ($str =~ /nbk[A-z0-9]{4}/ or $str =~ /nbd[A-z0-9]{4}/ or $str =~ /root/){