What is the result of the following PERL code?$5$x $=55$y $=10$if $(5$x $==5)($print $"$x is indeed $5*$ n deg $)$if $(5$y $=-5)($print $"$y is indeed $5$in$")$ else $\{$ print $"$y is not $5$i $*$ n deg $=\}5$my$\backslash$ gesudt$=(5$y $=-5)*7$y is indeed $5"$:$"$y is not $5$"print $"$My result is: Smy$\_$resultinif $(5$x $>5$y$)($print "Result is: x $($Sx$)$ is greater than y $(5$p$)$ deg $)$elsif $($Smy$\_$result eq $"$y is not $5")($print "Result is: I know that $5$mj$\backslash$ m $\backslash$in sig$(\backslash$mathbb$\{$n$\}*$ m $^$ n$))$else $\{$ print "Result is: x $($Sx$)$ is not greater than y $(5$y$)*$ i $*$ n deg : $)$