$_=~ s/<<>>/if ($1>=@input) {''} else {$input[$1]}/ge;