my ( $num, $rest ) = $img_name =~ /^(\d{6})(.*\.jpg)$/i; [download]
In reply to Re: regex help by borisz in thread regex help by calypso