I have tried both codes and all give me the output to the console. What i now want is to assign the value to my variable so that i can do more manipulation with the data, say my $newstatus=$status;

#!/usr/bin/perl
use strict;
use warnings;
my ( $name, $status ) = `./retrieve 2301` =~ /(?=CID:\s*(.+))(?=STATUS
+:+\s*(.+))/;

my $newstatus $status; //Just be able to access the variable with data
print $newstatus;
[download]