my $str = 'MY Name@gmail.com';

my $name = substr $str, 0, index($str,'@');
# OR 
my ($name)  = split '@', $str;
# OR
my ($name) = $str=~m/(.*?)\@/;

print $name;