- $calldate =~ /^(\d{4})-(\d{2})-(\d{2})\s*(\d{2}):(\d{2}):(\d{2})$/
- or die "unparseable date: $calldate";
- my $tmp_date = "$2/$1/$3 $4:$5:$6";
+ if ($calldate =~ /^(\d{4})-(\d{2})-(\d{2})\s*(\d{2}):(\d{2}):(\d{2})$/){
+
+ my $tmp_date = "$2/$3/$1 $4:$5:$6";