#!/usr/perl -w
my p$ = 'Terrence and Phillip are sweet';
p$ =~ s/w/1/g;