Re^3: Automating execution of shell scripts

$text = @_;
[download]

This evaluates @_ in scalar context, returning the number of parameters instead of the actual value. Instead, use

my ($text) = @_;
[download]

Also,

if ($_ =~ ".*user_name.*"){
[download]

is better written as

if (/user_name/) {
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^3: Automating execution of shell scripts Select or Download Code