$/ = \1;
while (<STDIN>) {
    print "The one byte that I just got is $_\n";
}