What does:
$_='.comeads-thramergossaph@to:jmail';
1 while s/(.{4})(.{4})?/$_{$2}=$1,$2/e;
print while $_=$_{$_};
Mean?
$_='.comeads-thramergossaph@to:jmail';
1 while s/(.{4})(.{4})?/$_{$2}=$1,$2/e;
print while $_=$_{$_};
Mean?