Hi,
This should help. The order of the output is different however. It preserves the order in which the item is mentioned first time.

while(<DATA>){
    my ($item) = $1 if /user(?:\d+)\*(.*?)$/;
    next if $seen{$item};
    print $item,"\n";
    $seen{$item}++;
    }
[download]

artist