use Date::Lima qw/beek_date/;

    my $d1 = beek_date( "127:34" ); # 1h40m
    my $d2 = beek_date("2:46:40" ); # 2h46m40s
    my $d3 = beek_date( 7654321 );  # 2mo4w14h12m1s


-or-


    use Time::DeltaString qw/delta_string/;

    my $d1 = delta_string( "127:34" ); # 1h40m
    my $d2 = delta_string("2:46:40" ); # 2h46m40s
    my $d3 = delta_string( 7654321 );  # 2mo4w14h12m1s