It'd probably be more efficient to write this

$record{$_} =~ s/<.*?>//g; # remove start tag
[download]

as this:

$record{$_} =~ s/<[^>]+>//g;
[download]

as [^>] will match anything but a '>' (this way it doesn't have to backtrack)

[ ar0n -- want job (boston) ]