空白を\s*に置き換える

#!/usr/bin/perl

$a=shift;
$a =~ s/\s+/\\s\*/g;
print "$a";