categorized answer QandAEditors This works for both DOS and UNIX path separators and when there is no path info. <code> ( $dir, $file ) = m/(.*)[\\\/](.+)/ ? ( $1, $2 ) : ( undef, $_ ); </code> 35235