( Som-Som | 2012. 05. 11., p – 21:52 )

Nálam tökéletesen működik:

while(<>) {
  my @arr = split(/'/);
  for(my $i = 0; $i <= $#arr; ++$i) {
    $arr[$i] =~ s/\s{2,}/ /g unless($i % 2);
  }
  print(join("'", @arr));
}