Select Code to Download

6 0 obj
  << /Length 4634 >>
...

  178 520 m 407 520 l .8 w S  #Stroking the line to underline above ur
+l

print scalar <>;
while (!eof(ARGV)) {
...
        "ends: $Str{$Key}->[1] ",
        "length: @{[$Str{$Key}->[1] - $Str{$Key}->[0]]}\n";
}