$data =~ s/(nr)?(\d+)/$1 ? "calc($1$2);" : $2 * 4/ge;