$stream =~ s/0/0000 /g;
$stream =~ s/1/1111 /g;