language: Perl (perl 5.16.2)
date: 281 days 17 hours ago
link:
visibility: public
1
2
3
4
$_ = 'this is a test string "hello here" and another "hello there" and so on...';
s/\s+(?=(?:[^"]*"[^"]*")*[^"]*$)//g;
print $_;