perl -ple\$_=/^c/?8:eval\$_.e2