##
substr( ( my $split = join '/', split //, $id ), -2, 2, '');
my $url = "$base_url/$split/$id/$id-h/$id-h.htm";
##
##
( my $url = join '/', split //, $id ) =~
s{(.*)/}{$base_url/$1/$id/$id-h/$id-h.htm}s;
##
##
my $url = join('/',
$base_url,
$id =~ /(.)(?=.)/sg,
$id,
"$id-h",
"$id-h.htm"
);