or download this
my $text = "
$sub24835->($sub24839->($sub24828->($sub24840->("( a1"),$sub24841->("
+a1 ) ")),$sub24830->($sub24853->("( a2 "),$sub24854->(" a2 )")),$sub2
+4828->($sub24840->("( a1"),$sub24841->(" a1 ) ")),$sub24842->($sub248
+43->("0"),$sub24830->($sub24853->("( a2 "),$sub24854->(" a2 )")),$sub
+24828->($sub24840->("( a1"),$sub24841->(" a1 ) "))),$sub24830->($sub2
+4853->("( a2 "),$sub24854->(" a2 )")),$sub24828->($sub24840->("( a1")
+,$sub24841->(" a1 ) ")),$sub24832->($sub24855->("1"),$sub24856->($sub
+24857->("| a3"),$sub24859->("a3 |")),$sub24858->("a3")),$sub24849->($
+sub24850->("1"),$sub24830->($sub24853->("( a2 "),$sub24854->(" a2 )")
+),$sub24832->($sub24855->("1"),$sub24856->($sub24857->("| a3"),$sub24
+859->("a3 |")),$sub24858->("a3")))))
";