{
  my @new;
  $_ = 'bla';
  push @new, $_ =~ m/^bla/;
  print(@new, "\n");  # prints 1
}

{
  my @new;
  $_ = 'bla';
  push @new, $_ =~ m/^(bla)/;
  print(@new, "\n");  # prints bla
}