Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Grep {$_ = 2}
@array1 = (1, 1, 1, 1);
@array2 = grep {$_ *= 2} @array1;
print @array1[1];