$tmp[3] =~ s/^\[|\]$//g; foreach ( split /,/, $tmp[3]) { my $ext = (reverse split /\./, $_)[0]; my $fname = "/home/user/public_html/cgi-bin/links/admin/IMPORT/tmp_images/" . CORE::time() . random_string() . ".$ext"; `wget --quiet -O $fname "$fname" "$_"`; $hit->{"Image$images_count"} = GT::SQL::File->open($fname); $images_count++; }