use strict;
use warnings;

my $string1 = " koisqd / \ poqsdpo .posd";
my $string2 = " koisqd / \ poqsdpo .posd";
my $string3 = " koisqd / \ poqsdpo .posd";

foreach my $toEscape ($string1, $string2, $string3){
        $toEscape =~ s/(\s|\\|\/)/\\$1/g;
}

system("perl hear.pl $string1 $string2 $string3");