I have no idea how it can be done in perl. Because I don't know what is album art. But when I did a google I found out the following useful information. If it helps to solve your problem, please make a use of it.

There is this freeware program called "The Godfather". It can remove, copy or 'copy and remove' album art from mp3's on the harddisk of your computer to a folder of your choosing. Found here