Help for this page
($hour,$minutes,$seconds) =~ split(/\:/,$time); print join "|", ($hour,$minutes,$seconds); -- ||