Help for this page

Select Code to Download


  1. or download this
    my $str   = "update patch-5.1.1.21510"
my $patch =        "patch-5.1.1.21510.gpg";

if( $str =~ /$patch/ms ) { print "Your Perl is broken!!!\n"; }
  2. or download this
    my $str = "update patch-5A1B1C21510\ngpg"; # ;)
  3. or download this
    my $patch = "patch-5.1.1.21510";
if( $str =~ m/\Q$patch\E/ ) { .... }