user-tools/fmtkv

   1 #!/usr/bin/env perl
   2
   3 while(<>)
   4 {
   5         s/(".*?"|\S+?)=(".*?"|\S+)/\n\t$&/g;
   6         print;
   7 }
   8
   9 __END__
  10
  11 =pod
  12
  13 =head1 NAME
  14
  15 fmtkv - Tranform key=value (each optionally double-quoted) pairs into 1 pair by 1 line on the output
  16
  17 =cut
  18