Problem 1 is here  $svar = ja_nei(<>);

You should write  if( ja_nei("ementaller?" ) ){ ...

Problem 2 is  sub fixer { its not local-ing enough ... just say no to "inline" , for reasons why and alternatives and related issues

see Re^2: Write to existing file with character insert, Re: modifying a file with regex!, ARGV::readonly Iterator::Diamond Iterator::Files -pi.orig -pi.bak Write to existing file with character insert, Dangerous diamonds! safe diamonds FMTYEWTK About Mass Edits In Perl - Perl.com Good-bye Unix filter idiom

Problem 3 you can use autodie for automatic system() death