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