my $text = "1..., some words, Dec 13, 2001";
print "$text,P" if ( $text =~ /^1/ );