combine two perl lines into a single perl command

Shell Programming and Scripting
1

Hi Everyone,
i have a string 00:44:40

so:
$tmp=~ s/://gi;
$tmp=~s/([0-9]{2})([0-9]{2})([0-9]{2})/$1*3600+$2*60+$3/e;

the output is 2680.

Any way to combine this two lines into a single line?

Thanks

2 
$tmp=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;
3

Thanks :b:

-----Post Update-----

Thanks Kevin

4 
my $str='00:44:40';
$str=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;
print $str;
5

Gee, thats original. :rolleyes: