perl -00 -i -ne 'print unless /^=\w/ .. /^=cut/' *.p[ml]