my ($username, $imagename) = $ENV{REQUEST_URI} =~ /\/(.*)\/(.*)/;

##</code><code>##

my ($user, $img) = $ENV{REQUEST_URI} =~ m#^/([^/]+)/([^/]+)$#;