perl -e'unlink "linkinpark" while shift' 1