use strict;

my %replace = (
   '"'  => '',
   '  ' => ';',
);

s/("|  )/$replace{$1}/g;