c:\@Work\Perl>perl -wMstrict -le
"my $s = 'foo: notwantedonvoyage: bar';
 my ($foo, undef, $bar) = split /: /, $s;
 print qq{'$foo'  '$bar'};
"
'foo'  'bar'