#----------[ CASE(2) ]----------#
my $v_place = 'home';
my $me = 'moving';
$me = 'at home' if($v_place =~ m/^home/);
$me = 'at work' if($v_place =~ m/^work/);

print "[$me]";
__END__
output:
[at home]
#-------------------------------#