perlだけワンライナーが出やすいようにしてますw

*** LIST1
Perlで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<40,[LIST3],[LIST3][LIST4]))
JavaScriptで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Rubyで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Pythonで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
PHPで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Bashで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Javaで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Cで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Objective-Cで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Swiftで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Kotlinで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
C++で=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
CSharpで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Rustで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Brainfuckで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Malbolgeで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Whitespaceで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Grassで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
APLで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Simulaで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Scalaで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
Prologで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
BASICで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
なでしこで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))
HSPで=IF(=CALC([LIST2]*10+[LIST2])<2,5000兆 , =IF(=CALC([LIST2]*10+[LIST2])<5,[LIST3],[LIST3][LIST4]))

*** LIST2
0-9の数字。一度使った数字は2度現れない
*** LIST3
1-9の数字。一度使った数字は2度現れない
*** LIST4
LIST3に続いて書かれる桁数