#!/usr/bin/perl

my %Minutes = ();
my %Seconds = ();
my %Seconds1 = ();
my %Seconds2 = ();
my %TotalTime = ();
my %Milliseconds = ();
my $statement = "File extraction sucessfully completed in 8s 180ms";

my @values = split(' ', $statement);

my $numelements = @values;

my $time1 = $values[$numelements-2];

my $time2 = $values[$numelements-1];

if ($time1 =~ m/min/)
{
$time1 =~ s/[^\d.]//g;
$Minutes = $time1;
$Seconds1 = $Minutes * 60;

}
else

{
$time1 =~ s/[^\d.]//g;
$Seconds = $time1;

}

if ($time2 =~ m/ms/)
{
$time2 =~ s/[^\d.]//g;
$Milliseconds = $time2;
$Seconds2 = $Milliseconds / 1000 ;

}
else

{
$time2 =~ s/[^\d.]//g;
$Seconds = $time2;

}

$TotalTime = $Seconds1 + $Seconds2 + $Seconds;

print "Total time taken: $TotalTime seconds \n";