- or download this
(@rest = split(/ /, $rest);
- or download this
$apass = pop @rest;
- or download this
print "ATTEMPT PASS: $apass\n";
- or download this
print "\$REST: $rest\n";
- or download this
foreach $i @rest {
print "\@REST: $i\n";
- or download this
print "\$_: $_\n";