( Foltos | 2012. 05. 09., sze – 21:14 )

Nincs energiám kipróbálni, de ilyesmi?

while( $file_file_content =~ s/([^']?+)('[^']?+')([^']?+)//gm )
{
my $pre=$1;
my $post=$3;
my $middle=$2;

$pre =~ s/\s+/ /g;
$post =~ s/\s+/ /g;

$result=$result.$pre.$middle.$post;
}