my $numbers = substr ($file, -3, 3);