use File::Basename; my ($name,$path) = fileparse($fullname); [download]
In reply to Re^2: Replace $a with $b if $a ne $b by holli in thread Replace $a with $b if $a ne $b by Anonymous Monk