Help for this page

Select Code to Download


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