my $secondWord = ( split m{\s*\|\s*}, $string )[1];