[_m3]

use strict;
my $text = 'blablabla = "blablalbalba",';
$text =~ s/"(.*?)"/{$1}\n\n/gi;
print "$text\n";

OUTPUT:
============================
E:\TEMP>perl x.pl
blablabla = {blablalbalba}

,
============================