Select Code to Download

#!/usr/bin/env perl -l

...
    .one .one. . .. .@. one.good.egg one.-bad-.egg
};
print "'$_': ", grep(! /^\w+$/, split /\./, $_, -1) ? 'bad' : 'good' f
+or @tests;

'one': good
'one.two': good
...
'.@.': bad
'one.good.egg': good
'one.-bad-.egg': bad