- my $hours = substr $time, 0, 2;
- my $minutes = substr $time, 3, 2;
- my $AmPm = $hours > 12 ? "Pm" : "Am";
+ my $hours = substr $time, 0, 2;
+ my $minutes = substr $time, 3, 2;
+ my $seconds = substr $time, 6, 2;
+ my $AmPm = $hours > 12 ? 'Pm' : 'Am';