my ( $num, $rest ) = $img_name =~ /^(\d{6})(.*\.jpg)$/i;