#!/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' 


##</code><code>##

C:\>1053134.pl
name: $foo  value: 'abc'

name: $id  value: 12

name: $text_code  value: 'tech'

name: $task_number  value: 4

name: $bar  value: 'xyz'

name: $coo  value: "nzy"

name: $crew  value: 'eleven'