while (<SOMEFILE>) {
@bytes = split //;
print join ":", @bytes;
}