$hoge =~ s|『(\d+)．(\d+)．(\d+)．(.{1})』|『$1/$2/$3-$4』|;

これでいいんじゃね