#!/usr/bin/perl -w
use 5.016;
#1053134
my ($item, @subarr);

my $line=<DATA>;
chomp $line;

my @arr = split /\s/, $line;
for $item(@arr) {
    @subarr= split /=/, $item;
    print "name: $subarr[0] "; 
    say " value: $subarr[1] \n";
}

__DATA__
$foo='abc' $id=12 $text_code='tech' $task_number=4 $bar='xyz' $coo="nzy" $crew='eleven'