my $return = qx "$string";
$return =~ s/\n/\n<br>/g;
print $return;