5 lines
120 B
Perl
Executable File
5 lines
120 B
Perl
Executable File
#!/usr/bin/env perl -n0
|
|
s%^ *((\d+\.)+\d+)|/$%print$1||"-","
|
|
"%emg;s%^/.+%%ms;for$i(18..75){print/^.{$i}([\d.])/gm,"
|
|
"}
|