Help for this page

Select Code to Download


  1. or download this
    @list = $string =~ /(regex1)(regex2)/;
  2. or download this
    ( $match1, $match2 ) = $string =~ /(regex1)(regex2)/;
  3. or download this
    if ( $string =~ /(regex1)/ ){
  $found = $1;
}
  4. or download this
    if(@ARGV && $ARGV[0] =~ /'^-') {
  5. or download this
    if(@ARGV && $ARGV[0] =~ m'^-') {