#!/usr/bin/perl -w use strict; use utf8; binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); while(<STDIN>) { $_ = lc $_; s/([a-z])'( |$)/$1$2/g; print; }