$source =~ s#(use warnings[^;]*)#$1;no warnings 'redefine'#sg;
eval $source;