use strict;
my $abcd = "Hello how r you?";
my $hello="Hello";

$abcd =~ s/\w/

	#{
	#}{
	 if ($hello)
	   {"1"}
	else
	   {"0"}
/exgs;

print "$abcd \n";