Select Code to Download

$s = ' input reset ; ';;
$s =~ s[(?!^)(\s+)(?!$)][]g;;  ## replace all spaces -- that are neith
+er preceded by the start of string; nor followed by the end-of-string
+ -- with nothing.
print "'$s'";;
' inputreset; '