if($str =~ /str=[a-zA-Z]+/)
{
     print "\nMatch: $1";
}