this is a string

##</code><code>##

:::this is a string

##</code><code>##

my $string = '   this is a string';
# below replaces first whitespace char, leaves the rest
$string =~ s/^\s/:/g;
# below replaces first whitespace char, remotes the rest
$string =~ s/^\s+/:/g;