if ($path =~ m/(\d+)$/) { my $end_num = $1; if ($end_num == 0) { etc. } and so on for other numbers } else { print "Oh dear, my path doesn't end with a number\n"; }