Select Code to Download

my ( $second_word ) = $string =~ m{\|([^|]*)\|};

my ( $second_word ) = $string =~
  m{
...
       )         # end capture
       \|        # another "|"
  }x;