Select Code to Download

if ($current_input =~ /^\s*ca\s+(\w+)\s*->\s*(\w+)\s*$/) {
    my ( $key, $value ) = ($1, $2);
    $aliases{$key} = $value;
}

foreach my $key (keys $aliases) {
    print "\$aliases{$key} = $alias{$key}\n";
}