Bob, the rabbit jump above the fence Jack, the cat hid under the porch of the red house Rex, the dog ran after Jack the birds fly When the world is reduced to a single dark wood for our two pairs of dazzled eyes to a musical house for our clear understanding then I shall find you When we are very strong who draws back? very happy who collapses from ridicule When we are very bad what can they do to us. The taste of ashes in the air the smell of wood sweating in the hearth steeped flowers the devastation of paths drizzle over the canals in the fields why not already playthings and incense? Arousing a pleasant taste of Chinese ink a black powder gently rains on my night I lower the jets of the chandelier throw myself on the bed and turning toward thedark I see you O my daughters and queens! #### 00 Bob, the rabbit jump above the fence Jack, the cat hid under the porch of the red house Rex, the dog ran after Jack the birds fly When the world is reduced to a single dark wood for our two pairs of dazzled eyes to a musical house for our clear understanding then I shall find you {00 .. 03} 01 When we are very strong who draws back? very happy who collapses from ridicule When we are very bad what can they do to us. {00 .. 03} 02 The taste of ashes in the air the smell of wood sweating in the hearth steeped flowers the devastation of paths drizzle over the canals in the fields why not already playthings and incense? {00 .. 03} 03 Arousing a pleasant taste of Chinese ink a black powder gently rains on my night I lower the jets of the chandelier throw myself on the bed and turning toward thedark I see you O my daughters and queens! {00 .. 03} #### die "usage format-pre-post-nbr-SPACE.pl \n" if $#ARGV < 4; $valid_line=$nbr_max_tab=0;$max[0]=0;$nbr_line=$ARGV[3]; open(F0, $ARGV[0]); open(F1, ">$ARGV[1]"); while() { if (/[a-zA-Z0-9]/) { $valid_line++; $max_tab=1; while (/\t+/g) { $max[$max_tab] = $+[0] if $max[$max_tab] < $+[0] || $max[$max_tab] eq ""; $max_tab++; } $nbr_max_tab = $max_tab if $nbr_max_tab < $max_tab; } } $valid_line--;$max_line=$nbr_line+$valid_line; seek F0,0,0; while() { s/\r//;chop; if (/[a-zA-Z0-9]/) { $max_tab=1; print F1 "0" x ($ARGV[2] - length($nbr_line)), $nbr_line, " " x $ARGV[4]; while (/[^\t]+/g) { print F1 substr($_, $-[0], ($+[0] - $-[0])), " " x ($max[$max_tab++] - ($+[0] - $-[0])); } print F1 " " x $ARGV[4], "{", "0" x ($ARGV[2] - length($ARGV[3])), $ARGV[3], " .. ", "0" x ($ARGV[2] - length($max_line)), $max_line, "}"; print F1 "\n"; $nbr_line++; } } close F0;close F1;