perl ocde 4

dddadasdasdasdasdasdsfasdfasasd
asdasdasffasdasdasdasdasdasdasdas
adsdasdadasdasdadasdasdasdasdadadas
adasdasdddadss



adasdadasdasdad