my $ua_name = $1 if ($ua=~ m/(opera|netscape|gecko|msie)/i);


##</code><code>##

my $ua_name = $1 if ( ($ua=~ m/(opera)/i) || ($ua=~ m/(netscape)/i) || ($ua=~ m/(gecko)/i) || ($ua=~ m/(msie)/i) );


##</code><code>##

perl -Mre=debug -le "$s = 'a man a plan a camel';print $1 if $s =~ /(camel|plan|monkey)/;"