use strict;
my $abcd = "Hello how r you?";
my $hello="Hello";
$abcd =~ s{\w}
{
	 if ($hello)
	 {"1"}
	else
	{"0"}
}exgs;
print $abcd;