Hi, Give some more information then only we will help you.

Anyway try this, if i understood your question correctly.

use strict;
use warnings;

my $string = "FileName.089-09_08_45";

$string =~ s/^[^\d]+//g; ##if Filename doesn't contain digits
#or
$string =~ s/^[^\.]+\.//g; ##if Filename doesn't contain dots

print $string;
__END__
089-09_08_45
[download]