in reply to Re: Regex that will append to end of same line
in thread Regex that will append to end of same line

Or, even shorter (and hopefully clearer) .. 
my $text = "1..., some words, Dec 13, 2001";
print "$text,P" if ( $text =~ /^1/ );

[download]
Although you may want \n at the end of the line.

--t. alex

"Excellent. Release the hounds." -- Monty Burns.

In Section Seekers of Perl Wisdom