use strict;
use warnings;
my $s = 'fred';
$s = substr($s,0,1) . undef . substr($s,3);

##</code><code>##

Use of uninitialized value in concatenation (.) or string at a.pl line 4.