($^X ) = ($^X ) =~ m/^ |perl|;/g;
@XX = '3"; ' ^ (per);
($^X ) =~ s/[perl]{4}/@XX/;
print("$^X\n");