#!/usr/local/bin/perl
use strict ;
use warnings ;
use diagnostics ;
use Time::Piece;
my $cleanfile = 'SomeFile.txt' ;
open my $cleanfile_fh,'<',$cleanfile or die "Cannot open file !& \n" ;
while (my $ln = <$cleanfile_fh>)
{
chomp $ln ;
{
my ($fst1,$sec2) = split/,/, $ln ;
Data example:
01:21:48.955,01:21:48.953
01:22:51.717,01:22:51.695
01:23:50.533,01:23:50.532
01:24:49.809,01:24:49.808
01:26:29.369,01:25:52.421
01:27:28.696,01:27:28.695
01:29:03.565,01:28:30.367
Thank you!
Tester V