open F, "<myfile" or die "Cannot open myfile: $!\n";
my $str = <F>;
print join'|',split//,$str;