#!/usr/bin/perl

use warnings;
use strict;
say for map { /^([0-9][\w.:,=\-]+)$/ } qw( 1231125716.6864.bLyyk:2,S 1422830161.R3.asus64:2,S);

##</code><code>##

Possible attempt to separate words with commas at dirrecurs17.pl line 11.
Bareword "say" not allowed while "strict subs" in use at dirrecurs17.pl line 11.
Execution of dirrecurs17.pl aborted due to compilation errors.

##</code><code>##

#use warnings;
#use strict;