$path =~ (m/\d+$\/);
if ($path == 0)
{}
else
{}