#removed code look below 
 
#or 
 
use feature qw(say); 
 
my @vars = map { split /;/} $string; 
say @vars;

my $pos = index($yourstring,"Name="); 
my $result = $pos >= 0 ? substr($yourstring,$pos) : undef;

my $result = substr(index($yourstring,"Name="));

@my_new_string = grep(/^Name=/, @my_string);

$string =~ /name=(.*)/i; 
print $1;