my $what = 'fred|barney';