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