four lines of perl that can induce reader tension


#!/usr/bin/perl -p
# grocerise.pl v1.0 alec.muffett@gmail.com 2011/5/31
s!'(s)!\#$1!goi;
s!'!!go;
s!(\w[bcdfghjklmnpqrstvwxyz])(s)\b!$1'$2!goi;
s!#(s)!$1!goi;

Comments

Leave a Reply

Your email address will not be published. Required fields are marked *