my ($fname) = $fullpath =~ m/([^\\|\/]+)$/;