use strict;

my $time     = "5H3M17S";
my $secs     = 0;
my $exponent = 0;

map { $secs += $_ * 60 ** $exponent++ } reverse(split(/[HMS]/, $time));