#!/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