Select Code to Download

#!/usr/bin/perl

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

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

#use warnings;
#use strict;