#!/usr/bin/perl 

use strict;

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(-oldstyle_urls :standard);

print header();


my $name = 'Joe Doe';

print "Name 1 = $name<br>"; #print "Joe Doe"

$name=~s/\s/_/;

print "Name2 = $name<br>"; #print "Joe_Doe"

$name =~s/_/\s+/;

print "Name 3 = $name<br>"; #print "Joes+Doe"