Select Code to Download

Select or download this

my $cust_code  = “SILICONEXSiliconex-wafers”;

...
__END__
[SILICONEXSiliconex-wafers]

Select or download this


my $pattern = "(?i)SILICONEXsiliconex-wafers";
...

                             }

Select or download this



...
     (?i) as /i for case sensitive pattern notation 
          or a combination of the flags

Select or download this


my $sub_contract="SILICONEXsiliconex-wafers ^M NOTE1-- a shipment in ^
+M backlog calc note for 
...
[ for 
the shipping dates the contract is delivered ] [ 1 a shipment in  back
+log calc note ]

Select or download this
```
    s/(?m:(\^M|--))/ /g
```

Select or download this


(?=     indicates a positive forward(look_ahead) assertion
...
(?<=    indicates a positive backward(look_behind) assertion
(?<!    indicates a negative backward(look_behind) assertion

Select or download this

     $product = "MOTOROLAx|xx|xx|x01-01-1900x|xYx|x";
     $product =~ s/x\|xx\|x/x\|x x\|x/g;
...

     [ MOTOROLAx|x x|xx|x01-01-1900x|xYx|x ]

Select or download this

 [ MOTOROLAx|x x|xx|x01-01-1900x|xYx|x ]

Select or download this

$product = "MOTOROLAx|xx|xx|x01-01-1900x|xYx|x";
$product =~ s/(?<=\|)xx(?=\|)/x x/g;
...

[ MOTOROLAx|x x|x x|x01-01-1900x|xYx|x ]

Select or download this

$product = "MOTOROLAx|xx|xx|x01-01-1900x|xYx|xx";
$product =~ s/(?<=\|)xx(?=(\||$)/x x/g;
...


[ MOTOROLAx|x x|x x|x01-01-1900x|xYx|x x ]