- or download this
my $ua_name = $1 if ($ua=~ m/(opera|netscape|gecko|msie)/i);
- or download this
my $ua_name = $1 if ( ($ua=~ m/(opera)/i) || ($ua=~ m/(netscape)/i) ||
+ ($ua=~ m/(gecko)/i) || ($ua=~ m/(msie)/i) );
- or download this
perl -Mre=debug -le "$s = 'a man a plan a camel';print $1 if $s =~ /(c
+amel|plan|monkey)/;"