Show what you used so we can help you learn why it did not work. The code below shows a working solution. It is not very elegant but it does work:

$line1 = "this is an example";
$line2 = "this is another example,";
$line3 = "this is yet another example    ";
$line4 = "despite what you think this is not an example,    ";

if ($line1 !~ /.*,\s*$/)
{
    print "MATCHED : $line1\n";
}
else 
{
    print "MISMATCH: $line1\n";
}
# ... repeated for $line2 $line3 and $line 4
##########################################################
# Output         
#MATCHED : this is an example
#MISMATCH: this is another example,
#MATCHED : this is yet another example
#MISMATCH: despite what you think this is not an example,
##########################################################
[download]