my $string = "This is a very long string";
foreach (0..length($string))
{
        if(substr($string, $_, 1) eq " ")
        {
                    # Replace this position (space) with a "|"
                substr($string, $_, 1, "|");
        }
}
print $string;