Help for this page

Select Code to Download


  1. or download this
    my $exp = $line =~ m/[FAR PASCAL|FAR PASCAL_CONV] (.*)/gi;
  2. or download this
    $line =~ m/(?:FAR PASCAL(?:_CONV)?) (.*)/i;
  3. or download this
    $line = "FAR PASCAL_CONV blurb";
my ($expr) = $line =~ m/(?:FAR PASCAL(?:_CONV)?) (.*)/i;

# $expr now contains "blurb";