my $cmd1 = "/bin/mv /etc/$i.d/$name /etc/$i.d/.NO.$name" or print 
        "/etc/$i.d/$name not found\n";

`$cmd1` if $name =~ /\b(K|S)\d{2}?$expression\b/;