On 19 Aug 2010, at 22:17, will at serensoft.com wrote: > How about > > 186: my ( $extension ) = ( $path =~ m{\.([^./]{1,4})$} ); > > instead? Sure. Could you write a failing test for this? Cheers t0m