$_ = 'x' x 80;
$_ .= 'y' x 100;
s/((.){49})/$1-/g;

print;