substitute using directory name

[brian54321uk]

Hi
I would like to replace a string of characters in a file to the name of 
the directory it is in.
Thefore, in the example below, I would like to know how to replace "?"

open( F, $ARGV[0] );

while( <F> ) {

 s!abc123!?!;

 s!xyz123!123xyz!;


{

  print;

 }

}


Any help much appreciated.
Brian

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/