Hi, Just try this

$string = 'FileName.089-09_08_45';
$string =~s#([a-z\.]+)(\d{2})\d#$2#gsi;
#or
$string =~s#.*?(\d{2})\d(\-[\d|_]+)#$1$2#gsi;
print $string;
[download]