perl -pe "$_ = join '', splice @{[split //]}, 1"