$_ = 'some.567.jpg';
m/^[^\.]*\.(\d+)\.(\w+)$/;
print "$1 $2"