in reply to Re: How can I make this code work ?
in thread Upper / Lower case extensions

Or alternately: $file =~ s/\.(dat|DAT)//; (although why you would want to *not* cope with .DaT I don't know)
  • Comment on Re: Re: How can I make this code work ?

In Section Seekers of Perl Wisdom