Bug fix in cperl-mode #11

support following this, by removing bugs.

```perl
#1
  sub hoge {                   RET    sub hoge {
      my $str = "something";   ->         my $str = "something";
 |}                                      |
                                      }

#2
sub fuga {|}  RET    sub fuga {
             ->         |
                     }
```