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