Actually, I think you've got that slightly wrong. The original code says:

if(!exists $is_acct{$usershare}){
[download]

Which is searching on key - not value.

Tie::Hash::Regex still isn't a solution because I only implemented the FETCH method, not EXISTS. But it wouldn't be too difficult to add that.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me