#!perl -w
use diagnostics;

$_ = 'foo';
s/(.)/\1/;