In this case, it might help if you describe what you want to do instead of only giving an example. Here's what I gather: shift the first 16 characters to the left, with wraparound, and insert F between them and the next character. Here's how I would do that:

$s=~s/^(.)(.{15})/$2$1F/;
[download]

--ZZamboni