#!/usr/bin/perl
use warnings;
use strict;


my $var = "/windows/d/Perl/test/a3/5/23/7";

$var =~ s%(?<=/)(\d+)/%$1-%g;
$var .= ".txt";

print $var;