17:03 >perl 950_SoPW.pl
foo : yes
1foo : yes
foo2 : yes
3foo4 : yes
foo5bar : yes
87 : no
foo-bar : yes
foo42-baz : yes
foo17@12 : no

17:04 >