$|=1;$"="\r";for(1..20){print(chr(0b100000)x rand(40),"Perl@{['','']}");print("@{[chr(0x1f+sleep(1))]}"x80,chr(0b1101))}