新手Perl 编码求助

大家好啊`

         帮忙看看这个应该怎么写啊？

我这边写了个代码，大致如下：

提示用户输入文件夹路径,如：D:\SnapshotView\sumin_TEST_0124_view\STEST

然后根据这个路径，执行相关命令得到信息，如: D:\SnapshotView\sumin_TEST_0124_view\STEST\test.pl@@\main\2

我最终想得到的信息是去掉前面用户输入的文件夹路径，用...来代替,如：...\test.pl@@\main\2


本来想用替换的，可是替换是不是不能用变量的啊？ 如: s/$dir/.../   ?

应该怎么开写啊？新手～谢谢了～

substr( $long, 0, length($short), '...' );

谢谢老大啊～～老大就是老大啊～～ ：）