#!/usr/bin/perl

print "Hello World!\n";

$str = " #define vamsi varanasi 1";

$define_string = qr/^\s*#define\s+(\w+)\s*$/;

$define_value_string = qr/^\s*#define\s+(\w+)\s+(\w+)\s*$/;

if($str =~ m/$define_string/){
  print "YO YO \n";
}

if($str =~ m/$define_value_string/){
  print "YES \n";
}

Hello World!