Select Code to Download

#!/usr/bin/perl

...

$withspace = "${foo}${bar}";
$withoutspace = "$foo $bar";

print "$withspace\n";
print "$withoutspace\n";