my ($numbers) = $file =~ m/(\d{3})$/;

##</code><code>##

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