# given the string value in $_ ...

my @v = split m#/#;
unshift @v, shift(@v) =~ /^(.*?)(\d*)$/;