print $_ if s//ri/ and s/r/ just g/ and s/g/another /s
      and s/i/ perl co/ and s/ co/  hacker /gi;