Buffing PERL Script (Formatting)

[Deimos]

It doesn't work, lol.
Anyone Wanna help, I have lots and lots of errors, I think 5:

Bareword found where operator expected at Untitled line 120, near "if($text=~/ShapeChange30"

Lines 110-125:

                {
                        if($ulevel > 89)
                        {
                                quest::say("ShapeChange25 is 1000 Platinum Pieces and 1 Copper Piece.");
                        }
                }
        }
        #####################################################################################
        #ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#
        #####################################################################################
        if($text=~/ShapeChange30)
        {
                if($ulevel < 10)
                {
                        quest::say("ShapeChange30 is 200 Platinum Pieces and 2 Copper Piece.");
                }

(Might be a runaway multi-line // string starting on line 47)
Lines 47-101:

        if($text=~/ShapeChange25)
        {
                if($ulevel < 10)
                {
                        quest::say("ShapeChange25 is 100 Platinum Pieces and 1 Copper Piece.");
                }
                elsif($ulevel < 20)
                {
                        if($ulevel > 9)
                        {
                                quest::say("ShapeChange25 is 200 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 30)
                {
                        if($ulevel > 19)
                        {
                                quest::say("ShapeChange25 is 300 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 40)
                {
                        if($ulevel > 29)
                        {
                                quest::say("ShapeChange25 is 400 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 50)
                {
                        if($ulevel > 39)
                        {
                                quest::say("ShapeChange25 is 500 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 60)
                {
                        if($ulevel > 49)
                        {
                                quest::say("ShapeChange25 is 600 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 70)
                {
                        if($ulevel > 59)
                        {
                                quest::say("ShapeChange25 is 700 Platinum Pieces and 1 Copper Piece.");
                        }
                }
                elsif($ulevel < 80)
                {
                        if($ulevel > 69)
                        {
                                quest::say("ShapeChange25 is 800 Platinum Pieces and 1 Copper Piece.");
                        }
                }

syntax error at Untitled line 120, near "if($text=~/ShapeChange30"
Lines 115-125:

              }
        }
        #####################################################################################
        #ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#ShapeChange30#
        #####################################################################################
        if($text=~/ShapeChange30)
        {
                if($ulevel < 10)
                {
                        quest::say("ShapeChange30 is 200 Platinum Pieces and 2 Copper Piece.");
                }

syntax error at Untitled line 126, near "elsif"
Lines 120-130:

        if($text=~/ShapeChange30)
        {
                if($ulevel < 10)
                {
                        quest::say("ShapeChange30 is 200 Platinum Pieces and 2 Copper Piece.");
                }
                elsif($ulevel < 20)
                {
                        if($ulevel > 9)
                        {
                                quest::say("ShapeChange30 is 300 Platinum Pieces and 2 Copper Pieces.");

If you want to see all of the code, please go to this site:
http://<br /> <a href="http://www.r...html</a><br />
Or
http://<br /> <a href="http://www.r...html</a><br />