($hour,$minutes,$seconds) =~ split(/\:/,$time);
print join "|", ($hour,$minutes,$seconds);
--
||
[download]

"=~" ne "="; :P --> use strict; use warnings;