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: <%-{-{-{-<
In reply to Re: A podcatcher in Perl
by AnomalousMonk
in thread A podcatcher in Perl
by jimhenry
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |