in reply to A podcatcher in Perl
if ( $value =~ m/^([A-Za-z0-9!#\$%&'*+-.^_`|~]+) \s* : \s* (.*)$/x ) {
Note also that in the
[A-Za-z0-9!#\$%&'*+-.^_`|~]
character class, the sub-pattern +-. represents | matches
the range of characters + , - . which includes the - (hyphen) character.
This seems a bit sus; I wonder if it was intended by the OPer.
Give a man a fish: <%-{-{-{-<
|
---|