>$foliolines =~ s/(.{130}).{22}(.*?\n)/$1$apply_this_card_to_all$2/gs;
>for (
> my $k = 130; # Start at character 130...
> $k < length($foliolines); # Stop when done...
> $k += 272 # Each folio line is 272 characters
>long...
>) {
Do you really want to remove an understandable commented section of code
with that? I'll be ringing you at 3 in the morning.
Sean