问如何在Perl中删除文件名中的时间戳？

EN

echo "/hosting/logs/U01-ecom-SIT01/CU01-DC05-IFIO_SIT01_NU01-nc3sz1ecmas11/waslogs/SystemOut_10.01.21_16.54.18.log" | 
  perl -pe "s/_\d\d\.\d\d\.\d\d_\d\d\.\d\d\.\d\d//;"

while(<>){
    @s = split /\// ;
    $fullpath=join("/",splice @s , 0, $#s);
    @a = split /[_.]/ ,$s[-1];
    $newfile="$fullpath/$a[0].$a[-1]";
    print $newfile."\n";
}