In line 19 you use the m// operator, since you used m!! you don't have to escape the: / it defeats the whole purpose.

m!PATTERN/PATTERN!; # will work fine.
[download]

also the same goes for line 22

if m!PATTERN/PATTERN!;
[download]

-tengo mas que aprender