#!/usr/bin/perl -w
use strict;
my $counter;
while (my $line = <DATA>)
   {
      chomp($line);
      print "B |$line|\n";
      if ($line =~ m/-(.*) ["]*([\)\(A-Za-z0-9,\.\*]*)\s*["]*\s*/)
      {
         print "$counter $1 $2\n";
      }
      if ($line =~ m/\bEND\b/)
      {
         $counter ++;
      }
   }

__DATA__
   -libs "source*.lib"
   -1dlu 
   -2dlu 
   -3dlu "(1,1,3)"
   -filter  ASDF
END

##</code><code>##

B |   -libs "source*.lib"|
 libs source*.lib
B |   -1dlu |
 1dlu 
B |   -2dlu |
 2dlu 
B |   -3dlu "(1,1,3)"|
 3dlu (1,1,3)
B |   -filter  ASDF|
 filter  ASDF
B |END|