PROGRAM EXAMPLE
C
      INTEGER   ....
      REAL      ....
      CHARACTER ....
C
      INCLUDE    'XXX:FILENAME.INC'
C
      ...

      OPEN(UNIT=LUN,FILE='YYY:FILENAME.DAT',STATUS='UNKNOWN',
     +        ACCESS='INDEXED')

      ...

      END

How I get string XXX and YYY with perl?
     (XXX,YYY == [a-zA-Z0-9_$])

i.e. I search pattern matching for structure: 'string:  and get "string"
                                              --------
                                              ^      ^
                                              |      | end with :
                                              | start with '

     or string == [a-zA-Z0-9_$], example:  string = MNU$DIR_SRC

Thank you,

Gilles Ratel

                                              send mail at this address
Institut de recherche d'Hydro-Quebec
1800, Montee Sainte-Julie
Varennes, QC
CANADA   J3X 1S1

how about:

        string =~ /'(.*):/ ;

--
Ludhi Sidikpramana          |  You're not drunk | Phone: (914) 945 - 6300
Philips Laboratories        |  if you can lie   | Fax  : (914) 945 - 6375
345 Scarborough Road        |  on the floor w/o | Email: {uunet!philabs!lxs} or

--
Ludhi Sidikpramana          |  You're not drunk | Phone: (914) 945 - 6300
Philips Laboratories        |  if you can lie   | Fax  : (914) 945 - 6375
345 Scarborough Road        |  on the floor w/o | Email: {uunet!philabs!lxs} or