{"body":"(py)[timeless@gcc2-power8 spec-glossary]$ cat ../0.pl\n#!/usr/bin/perl\n\n$FH = undef;\nwhile (<>) {\n if (/^=\\S+ (.*)/) {\n  close $FH if defined $FH;\n  $f = lc $1;\n  $f =~ s/ /_/;\n  open($FH, '>', $f);\n }\n if (defined $FH) {\n  print $FH $_;\n }\n}\nif (defined $FH) {\n close($FH);\n $FH = undef;\n}\n","name":"0.pl","extension":"pl","url":"https://www.irccloud.com/pastebin/YkqnFHd9/0.pl","modified":1465423090,"id":"YkqnFHd9","size":290,"lines":19,"own_paste":false,"theme":"","date":1465423090}