Select Code to Download

#!/usr/bin/perl
use strict;
...
      url
    /xms ? print "$_ : OK\n" : print "$_ : NOK\n";
}

Output:
a2.xyz.nota.url : OK
c3.xy1.nota.url : OK
b1.xyz1.nota.url : OK
a3.xy11.nota.url : NOK