if( $line =~ m!sub\s+(\S+){ eval "sub $1 {}" }