#!perl -pl s![^*]+!$&!eeg;$_=eval