my @re = (
  qw/./,
  qw/./,
  qw/.+/,
);