view _test/temp.pl @ 200:a9dbe534d236

sync
author sergey
date Tue, 24 Apr 2012 02:34:49 +0400
parents 2ffe6f661605
children 68a59c3358ff
line wrap: on
line source

#!/usr/bin/perl
use strict;

print join ',', "-some::mod::here" =~ m/^(-)?(\w+(?:::\w+)*)$/;