#!/usr/bin/perl
open(FILE, "<ptinews2.csv");
while(<FILE>)
{
        my($line) = $_;
        chomp($line);
        if($line =~ /\d{1,2}\/\d{1,2}\/\d{4}/)
        {
                print "\n$line";
        }
        else
        {
                print $line;
        }
}
#[0-9]{1,2}/[0-9]{1,2}/[0-9]{4}