Help for this page

Select Code to Download


  1. or download this
    $ perl
if ( '_$x_' =~ '$x') { print "match 1" }                      
if ( '_$x_' =~ /\$x/){ print "match 2" }
__DATA__
match 2
  2. or download this
    perl -MO=Deparse 
if ( '_$x_' =~ '$x') { print "match 1" }                      
...
}
__DATA__
- syntax OK
  3. or download this
    perl -MO=Concise
if ( '_$x_' =~ '$x') { print "match 1" }                      
...
d                 <0> pushmark s ->e
e                 <$> const[PV "match 2"] s ->f
- syntax OK