@list = $string =~ /(regex1)(regex2)/;

##</code><code>##

( $match1, $match2 ) = $string =~ /(regex1)(regex2)/;

##</code><code>##

if ( $string =~ /(regex1)/ ){
  $found = $1;
}

##</code><code>##

if(@ARGV && $ARGV[0] =~ /'^-') {

##</code><code>##

if(@ARGV && $ARGV[0] =~ m'^-') {