… | … | ||
---|---|---|---|
54 | } | 54 | } |
55 | }); | 55 | }); |
56 | }; | 56 | }; |
57 | 57 | ||
58 | for ($text) { | 58 | for ($text) { |
59 | /\n/ | ||
60 | and $add_button->("newlines to spaces" => sub { y/\n/ / }); | ||
61 | |||
59 | /./ | 62 | /./ |
60 | and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ }); | 63 | and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ }); |
61 | 64 | ||
62 | /./ | 65 | /./ |
63 | and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ }); | 66 | and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ }); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |