common replacement code ill-understood

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I see this rather a lot on scripts I download, but I don't really understand it. Can anyone help? Thanks.

$foo =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;