gets$&
b=273*$_.tr("*.
",'10').hex
$><<gsub('.'){(b<<?ˆ)+(b<<68)+b>>$'.size*4>>72&15}